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0 Apparatus and process for reagent fluid dispensing and printing. 



@ A systenn for printing and dispensing chemical reagents in precisely controlled volumes onto a medium at a 
precisely controlled location. A jetting tube, comprising an orifice at one end and a fluid receiving aperture at the 
other end. is concentrically mounted within a cylindrical piezo-electric transducer. The fluid receiving aperture is 
connected to a reservoir containing a selected reagent by means of a filter. The reservoir Is pressurized by a 
regulated air supply. An electrical signal of short duration is applied to the transducer. The pulse causes the 
transducer and the volume defined by the jetting tube to expand, thereby drav^ing in a small quantity of reagent 
^ fluid. The cessation of the pulse causes the transducer and the volume of the jetting tube to de-expand, thereby 
causing at least a substantially uniformly sized droplet of reagent fluid to be propelled through the orifice. The 
droplet may be directed to impact a printing medium or collected in a dispensing recepticte. 
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APPARATUS AND PROCESS FOR REAGENT FLUID DISPENSING AND PRINTING 



BACKGROUND OF THE INVENTION 

The present invention relates to an apparatus and process for dispensing and printing reagent fluids, 
5 wherein a transducer is used to propel snnall quantities of the fluid towards a positioned target. 

Diagnostic assays often require systems for metering, dispensing and printing reagent fluids, in the 
case of metering and dispensing, such systems comprise both manual and automatic means. For purposes 
of practicality, the present background discussion will focus on the methods of metering and dispensing 100 
micro-liter volumes or less. 

70 The manual systems of metering and dispensing include the glass capillary pipet; the micro-pipet: the 
precision syringe; and weighing instruments. The glass capillary pipet is formed from a precision bore glass 
capillary tube. The pipet typically comprises a fire blown bulb and a tubular portion fire drawn to a fine 
point. Fluid is precisely metered by aspirating liquid through the tube into the bulb to a predetermined level 
indicated by an etched mark. The fluid may then be dispensed by blowing air through the tube. 

75 The micro-pipet typically comprises a cylinder and a spring loaded piston. The travel of the piston is 
precisely determined by a threaded stop. The distance the piston travels within the cylinder and the 
diameter of the cylinder define a precise volume. The fluid is aspirated into and dispensed from the micro- 
pipet in precise quantities by movement of the piston within the cylinder. 

The precision syringe generally comprises a precisely manufactured plunger and cylinder with ac- 

20 curately positioned metering marks. The fluid is introduced into and dispensed from the syringe by 
movement of the plunger between the marks. 

Weighing techniques for dispensing fluids often simply involve weighing a quantity of fluid. The density 
of the fluid may then be used to determine the fluid volume. 

Exemplary automatic metering and dispensing systems include the precision syringe pump; the 

25 peristaltic pump; and the high performance liquid chromatography (HPLC) metering valve. The precision 
syringe pump generally comprises a precision ground piston located within a precision bore cylinder. The 
piston is moved within the cylinder in precise increments by a stepping motor. 

The peristaltic pump comprises an elastomeric tube which is sequentially pinched by a series of rollers. 
Often the tube is placed inside a semi-circular channel and the rollers mounted on the outer edge of a disc 

30 driven by a stepping motor. The movement of the rollers against the tubing produces peristaltic movement 
of the fluid. 

The HPLC metering valve comprises a defined length of precision inner diameter tubing. The fluid is 

introduced into the define volume of the tubing with the valve in a first position and then dispensed from the 

tubing when the valve is placed rn a second position. 
35 All of the above metering and dispensing systems have the disadvantage that the volumes dispensed 

are relatively large. Furthermore, these systems are also relatively slow, inefficient and comprise precision 

fitted components which are particularly susceptible to wear. 

The printing of reagent fluids is frequently required in the manufacture of chemical assay test strips. 

Selected reagents are printed in a desired configuration on strips of filter paper. The strips may then be 
40 used as a disposable diagnostic tool to determine the presence or absence of a variety of chemical 

components. 

Generally, to perform a chemical assay with a test strip, the strip is exposed to a fluid or a series of 
fluids to be tested, such as blood, serum or unne. in some instances, the strip is nnsed and processed with 
additional reagents pnor to being interpreted. The precise interpretation depends on the type of chemical 
45 reactions involved, but it may be as simple as visually inspecting the test strip for a particular color change. 
The manufacture of test strips generally involves either a manufacturing process or a blotting process. 
The blotting process is the simplest manufacturing method and permits most reagents to be applied without 
modification. A disadvantage of this process is that it is difficult to blot the fluids onto the test strip with 
precision. 

50 The printing process will often involve any of three well known methods: silk screening; gravure: and 
transfer printing. The silk screening of reagents generally involves producing a screen by photographic 
methods in the desired configuration for each reagent to be printed. The screen is exposed under light to a 
preselected pattern and then developed. The areas of the screen which are not exposed to light, when 
devel oped, become porous. However, the areas of the screen which have been exposed to light remain 
relatively nonporous. The screen is then secured in a frame and the test strip placed below. The desired 
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reagent fluid, specially prepared to have a high viscosity, is spread over the top side of the screen. The 
reagent passes through the porous areas of the screen and onto the test strip. The test strip is then 
subjected to a drying process, specific to each reagent. Once the test strip is dry, it may be printed again 
using a different screen, pattern and reagent. 

5 The gravure method of printing reagents comprises coating a metal surface with a light sensitive 
polymer. The polymer is exposed to light in the desired predetermined pattern. When developed, the 
polymer creates hydrophilic and hydrophobic regions. The reagent is specially prepared such that vy^hen 
applied to the metal it will adhere only to the hydrophilic regions. After the specially prepared reagent is 
applied, the test strip is pressed against the metal and the reagent is transferred from the metal to the test 

70 strip. 

The transfer printing method comprises transferhng the reagents from a die to the test strip in the 
desired pattern. The die is made with the appropriate pattern on its surface and then coated with the 
desired, specially prepared reagent. A rubber stamp mechanism is pressed against the die to transfer the 
reagent in the desired pattern from the die to the rubber stamp. The rubber stamp is then pressed against 

75 the test strip to transfer the reagent, in the same pattern, to the test strip. 

Each of the above-mentioned reagent printing techniques has significant disadvantages. The most 
common disadvantage is the requirement that the reagents must be specially prepared. Additionally, if a 
variety of reagents are to be printed onto a single test strip, the strip must be carefully aligned prior to each 
printing. This alignment procedure increases the cost and decreases the throughput of the printing process. 

20 Moreover, a special die or screen must be produced for each pattern to be printed. A further disadvantage 
arises in that the above printing methods are unable to place reproduceable minute quantities of reagent on 
the test strip. 

It is an object of the present invention to provide a printing and dispensing method and apparatus which 
avoids these disadvantages. 

25 

SUMMARY OF THE PRESENT INVENTION 

The present invention is directed to a reagent dispensing and printing apparatus and method, wherein 
30 the apparatus comprises a transducer operative to eject a substantially uniform quantity of reagent in a 
precise predetermined direction. 

According to one preferred embodiment of the present invention used in dispensing reagent fluids, a 
jetting tube is concentrically located with a piezoelectric transducer. The jetting tube comprises an orifice at 
one end and a reagent receiving aperture at the other end. The receiving end of the jetting tube is 
35 connected to a filter v^hich is in turn connected to a reservoir containing a selected reagent. A jetting control 
unit supplies an electrical pulse of short duration to the transducer in response to a command issued by a 
computer. The electrical pulse causes the volume defined by the jetting tube to expand by an amount 
sufficient to intake a small quantity of reagent fluid from the reservoir. At the end of the pulse duration, the 
transducer de-expands propelling a small quantity of the reagent fluid through the orifice and into a fluid 
40 recepticle. If desired, additional droplets may be deposited in the recepticle or the recepticle aligned with an 
additional jetting tube for receiving an additional reagent fluid. 

An additional preferred embodiment of the present invention may be used for printing reagent fluids 
onto a print medium. In this embodiment, the jetting tube is aligned with the printing medium such that the 
propelled droplet impacts a precise position on the medium. The jetting tube or print medium may then be 
45 repositioned and another droplet expelled from the jetting tube. The process may be repeated until a 
desired configuration of the reagent fluid is printed on the medium. 

One advantage of the present invention is that precise minute quantities of reagent fluid may be 
dispensed or printed in a reproducible manner. Additionally, the method and apparatus may be used to 
emit droplets of fluids having a wide range of reagent fluid viscosities and surface tensions. The reagents 
50 do not in general have to be specially adapted for use with the present invention. 

The invention itself, together with further objects and attendant advantages, will best be understood by 
reference to the following detailed description, taken in conjunction with the accompanying drawings. 
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BRIEF DESCRIPTION OF THE DRAWINGS 

FIGURE 1 is a schematic representation of a first preferred embodiment of the present invention 
showing the use of multiple jetting heads to meter and dispense reagent fluid. 
5 FIGURE 2a is a perspective view of a first preferred embodiment of the jetting head of the present 

invention. 

FIGURE 2b is a cut-away perspective view of the preferred embodiment of Fig. 2a taken along lines » 
2b-2b with the contact pins removed. 

FIGURE 2c is a sectional representation of the preferred embodiment of Fig. 2a taken along lines 2c- 

70 2c. 

FIGURE 2d is a sectional representation of the preferred embodiment of Fig. 2c taken along lines 2d- 

2d. 

FIGURE 2e is a sectional representation of the jetting tube and transducer of the preferred 
embodiment of Fig. 2b taken along lines 2e-2e. 
75 FIGURE 3 is a schematic representation of a second preferred embodiment operating in the drop on 

demand mode as a reagent printing system. 

FIGURE 4 is a schematic representation of a third preferred embodiment operating in the continuous 
mode as a reagent printing system. 

FIGURE 5a is a schematic representation of a portion of the jetting head control unit showing the 
20 LED strobe circuit. 

FIGURE 5b is a schematic representation of a portion of the jetting head control unit showing the 
high voltage power supply circuit. 

FIGURE 5c is a schematic representation of a portion of the jetting head control unit showing the 
print control circuit. 

25 FIGURE 5d Is a schematic representation of a portion of the jetting head control unit showing a 

portion of the print pulse generator. 

FIGURE 5e is a schematic representation of a portion of the jetting head control unit showing an 
additional portion of the pulse generator. 

FIGURE 6a is a perspective view of a second preferred embodiment of the jetting head of the 
30 present invention. 

FIGURE 6b is an exploded view of the preferred embodiment of Fig, 6a. 

FIGURE 7 is a sectional representation of a third preferred embodiment of the jetting head of the 
present invention. 

FIGURE 8 is a sectional view of a symmetrical portion of a fourth preferred embodiment of the jetting 
35 head of the present invention. 

FIGURE 9 is a graph of the drop mass of the emitted droplets as a function of emission frequency for 
several fluid viscosities. 

FIGURE 10 is a graph of the velocity of the emitted droplets as a function of frequency for several 
fluid viscosities. 

40 FIGURE 11 is a graph of the total weight of fluid emitted as a function of the number of emitted 

droplets for a given fluid. 

DETAILED DESCRIPTION OF THE PRESENTLY PREFERRED EMBODIMENTS 

45 

Turning now to the drawings. Fig. 1 shows a schematic representation of a first preferred cmDooiment 
of a reagent dispensing system generally represented as reference numeral 30. The dispensing system 30 
comprises a plurality of reagent fluid reservoirs 200, a plurality of filters 300. a plurality of reagem letttng 
heads 400, a plurality of jetting head control units 500. an interface unit 600, a computer 700, transportation 
50 unit 902, a plurality of fluid mixing ceils 904 and a detection station 906. 

The reservoir 200 holds a selected quantity of reagent fluid for dispensing. The reservoir 200 is 
maintained at atmospheric pressure by suitaole means such as an atmospheric vent. The reagent fluid is 
transferred from the reservoir 200 through the filter 300 to the reagent jetting head 400. The filter 300 is 
placed between the reser\'oir 200 and tne jetting head 400 to ensure that any particular foreign matter in the 
55 reagent fluid is trapped before entenng the jetting nsad 400. 

The plurality of jetting heads 400 and the detection station 906 define a processing path. Each jetting 
head 400. which is described in detail Detow. ejects uniformly sized aroplets 2 of reagent fluid. Tne droplets 
2 are propelled, with controlled velocity and direction, towards a selecting mixing cell 904 positioned along 
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the processing path by the transportation unit 902. The mixing celis 904 are comprised of non-reactive 
material and lunction as nninute holding tanks for the dispensed reagent fluid. 

The plurality of jetting heads 400, shown in Fig. 1, are positioned sequentially along the processing 
path. Alternately, some or all of the plurality of jetting heads 400 may be positioned with respect to the 
5 transportation unit 902 such that the heads 400 direct the droplets 2 into a selected mixing cell 902 
simultaneously. 

The jetting heads 400 and the transportation unit 902 are controlled by the computer 700. The 
computer 700 issues commands to an interface unit 600 which is electrically connected to the transportation 
unit 902 and to the jetting head control unit 500. The interface unit 600 is of conventional design and is 
10 used to control the transfer of information between the computer 700 and the jetting control unit 500. The 
interface unit 600 is also used to control the transfer of information between the computer 700 and the 
transportation unit 902. 

A first embodiment of the reagent jetting head is shown in Figs. 2a - 2e and generally represented by 

numeral 400. The jetting head 400 comprises a two piece symmetrical housing 402, 404. The housing 402, 
75 404, when assembled, is adapted to form an orifice aperture 406. an air vent and reagent supply channel 

410 and a transducer chamber 403. shown in Fig. 4b. Four screws 408, adapted to respective housing 

screw apertures 416, hold the housing 402, 404 in an assembled configuration. 

The jetting head 400 funher comprises a jetting tube 432, a piezo-electric transducer 434 and a reagent 

fluid supply tube 430. The jetting tube 432 defines a tapered orifice 433 at one end and a fluid receiving 
20 aperture 431 at the other end for expelling and receiving fluid, respectively. The piezo-electric transducer 

434 is cylindricaiiy shaped and secured concentrically about the mid-region of the jetting tube 432 with 

epoxy or other suitable means. 

The piezo-electric transducer 434, shown in Fig. 2e, defines a first and second end and comprises a 

section of cylindricaiiy shaped piezeo-electric material 435. An inner nickel electrode 437 covers the inner 
25 surface of the cylinder 435. The electrode 437 wraps around the first end of the cylinder 435 a sufficient 

distance to enable electrical connection external to the cylinder 435. 

A second nickel electrode 436 covers the majority of the outer surface of the cylinder 435. The second 

electrode is electrically isolated from the first electrode 437 by an air gap at the face of the second end of 

the cylinder 435 and by an air gap on the outer surface of the cylinder 435 near the first end. When an 
30 electrical pulse is applied to the first and second electrodes 437, 436 a voltage potential is developed 

radially across the transducer material 435. The voltage potential causes the radial dimensions of the 

transducer 435 to change, which causes the volume defined by the transducer 434 to also change. 

The jetting tube 432 is positioned in the transducer chamber 403 such that the receiving end 431 

extends beyond the rearw^ard end of the transducer 434. The receiving end 431 of the jetting tube 432 Is 
35 inserted into one end of a reagent supply tube 430. The supply tube 430 is sealingly held to the jetting tube 

432 by concenthc teeth 4l2 formed by the housing sections 402, 404, The teeth 412 not only seal the 

supply tube 430 to the jetting tube 432. but, also, seal the supply tube 430 to the housing 402, 404. 

The second end of the supply type 430 passes through the channel 410 and into a reagent reservoir 

200. The reservoir 200 contains the reagent fluid to be dispensed by the jetting head 400. As the reagent 
40 fluid is dispensed, air is supplied to the reservoir 200 through the channel 410 to prevent the creation of a 

vacuum in the reservoir 200. The reservoir 200 is releasably attached to the housing 402, 404 and held in 

place by frictiona! forces. A reservoir cap 202 is flexibly attached to the reservoir 200 and adapted such that 

the cap 202 may be used to secure the opening in the reservoir 200 when the reservoir 200 is disengaged 

from the housing 402. 404. 

45 The position of the jetting tube 432 defines the horizontal plane of the jetting head 400. The jetting tube 
432 and the transducer 434 are held in a pre-defined vertical relationship with respect to the housing 402, 
404 by means of two upper vertical alignment pins 418 and two lower vertical alignment pins 418. The two 
upper vertical alignment pins 418 extend honzontally from the housing section 402 into the transducer 
chamber 403. Similarly, the two lower vertical alignment pins 418 extend horizontally from the housing 

50 section 404 into the transducer chamber 403. Each vertical alignment pin 418 is formed integrally with the 
respective housing sections 402, 404. 

The jetting tube 432 and the transducer 434 are held in a predefined horizontal relationship with respect 
to the housing 402. 404 by means of four hohzontal alignment pins 424. Two of the horizontal alignment 
pins 424 extend horizontally from the housing section 402 approximately midway into the transducer 

55 chamber 403. Similarly, two of the horizontal alignment pins 424 extend horizontally from the housing 
section 404 approximately midway into the transducing chamber 403. Each hohzontal alignment pin 424 is 
formed integrally with the respective housing section 402. 404. The alignment pins 418, 424. sealing teeth 
412 and orifice aperture 406 are aligned and adapted to hold the jetting tube 432 and transducer 434 such 
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that the orifice 433 of the jetting tube 432 extends into the orifice aperture 406. 

An electrical transducer activation pulse is supplied to the piezo-electric transducer 434 fronn the jetting 
head control unit 500 by means of two contact pins 422. A quantity of fluid will be dispensed from the 
jetting tube for each applied activation pulse. The activation pulse can be produced by a variety of 

5 conventional circuits or commercially available units. Therefore a detailed description of such a circuit will 
not be provided. However, a circuit for producing a series of activation pulses is provided in the description 
of the printing embodiment below. Due to the dif fering constraints involved in dispensing and printing, the 
circuit in the printing embodiment is not required to produce only a single pulse. However, one skilled in the 
art could, if desired, modify the circuit to produce a single pulse on demand for use in the dispensing 

70 embodiment. 

Each contact pin 422 defines an enlarged head 423 which is adapted to contact the respective first and 
second electrodes 437, 436 located on the outer surface of the transducer 434. Two contact pin holders 
414, integral with the housing 402. 404, are positioned to hold the respective contact pins 422 under the pin 
heads 423 such that each pin head 423 eiectrlcally engages the appropriate electrode 437, 436 of the 

75 transducer 434. Two contact pin engaging posts 420 extend from the housing 402, 404 opposite the contact 
pin holders 414 to engage and hold the contact pins 422 against the contact pin holders 414. The ends of 
the contact pins 422 opposite the pin heads 423 extend through the housing 402. 404 by means of contact 
pin apertures 421. Since the housing sections 402. 404 are formed symmetrically to one another, the 
contact pins 422 may be optionally attached above the transducer 434, 

20 In operation, the reservoir 200 containing reagent fluid is fastened to the jetting head 400 such that the 
fluid supply tube 430 extends into the reagent fluid. The filter 300 may be fitted to the free end of the 
supply tube 430 or positioned inside the reservoir 200. Air is supplied through the channel 410 around the 
supply tube 430 to prevent the reservoir 200 from falling below atmospheric pressure. The air is prevented 
from entering around the supply tube 430 and into the transducer chamber 403 by the seal created 

25 between the sealing teeth 412 and the supply tube 430. The jetting tube 432 may be primed by slightly 
pressurizing the reservoir 200 to cause the reagent fluid to travel through the supply tube 430 and into the 
jetting tube 432. Once primed, the fluid is prevented from substantially withdrawing from the jetting tube 
432 by the surface tension of the reagent fluid at the orifice 433. 

The transducer activation pulse is conducted to the contact pins 422 of the jetting head 400. The 

30 contact pins 422 communicate the high voltage pulse to the electrodes 437, 436 of the transducer 434 with 
polarity such that the concentrically mounted transducer 434 expands. The rate of expansion is controlled 
by the rise time of the high voltage pulse which is preset to generate a rapid expansion. The expansion of 
the transducer 434 causes the jetting tube 432. which is epoxied to the transducer 434, to also expand. The 
expansion of the tube 432 generates an acoustic expansion wave interior to the tube 432 which travels 

35 axially towards the orifice 433 and towards the fluid receiving aperture 431. When the expansion wave 
reaches the orifice 433, the reagent fluid is partially drawn inwardly. However, the surface tension of the 
fluid acts to inhibit substantial inward fluid movement. 

When the expansion wave reaches the end 431 of the tube 432, the expansion wave is reflected and 
becomes a compression wave which travels towards the center of the piezo-electric tube 434. The high 

40 voltage pulse width is adapted such that when the reflected compression wave is beneath the piezo-electric 
tube 434, the high voltage pulse falls, resulting in a de-expansion of the transducer 434 and the jetting tube 
432. This action adds to the existing acoustic compression wave in the interior of the jetting tube 432. The 
enhanced compression wave travels toward the ori fice causing reagent fluid to be- dispensed from the tube 
432. The fluid is propelled from the orifice 433 as a small droplet 2 and deposited in the selected mixing 

45 cell 904 positioned by the transportation unit 902. One droplet 2 is dispensed for each transducer activation 
pulse. This mode of dispensing is referred to as the drop on demand mode. 

In some instances, the droplet 2 may be accompanied by at least one smaller satelite droplet. However, 
even if satelite droplets are present, the volume and velocity of the reagent droplets 2 are highly 
reproduceable. This reproduceability allows for precise dispensing of uniform, controllably sized droplets 2 

50 of reagent fluid into the mixing cell 904. 

The droplets 2 of reagents impaci the mixing cell 904 with sufficient force and volume to cause fluidic 
mixing of the reagents. Once the desired amounts of the selected reagents are deposited in the selected 
mixing cell 904. mixing cell 904 is transported to the detection station 906 where the mixed reagents may 
be extracted for use or analyzed for assay results. 

55 The dispensing system 30 provides numerous advantages based upon the ability of the reagent jetting 
head 400 to rapidly and reproduceably eject uniform quantities of a wide range of reagents. Tne reaction 
times of some chemical processes are dependent upon the volume of tne reagents used. The ability of the 
dispensing system 30 to dispense such minute amounts of reagents thereby reduces the processing time 
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of certain chemical assays. Furthermore, some chemical assays require a wide range of dilution ratios. 
Many conventional dispensing systems are unable to dispense the reagents in volume small enough to 
make the desired assay practical. The dispensing system of the pres ent invention overcomes this 
disadvantage. 

5 In addition to dispensing reagent fluids, certain embodiments may be used for precision printing of 
reagents onto a printing medium such as filter paper to produce an assay test strip. A printing system 10 
using the present invention is represented in Fig. 3. Structure similar in form and function to structure 
described above will be designated by like reference numerals. The printing system 10 comprises a 
reagent fluid reservoir 200, a filter 300. a reagent jetting head 400, a jetting head control unit 500, an 

70 interface 600, a computer 700, and an x-y plotter 800. 

The x-y plotter 800 is a commercially available pen plotter, mechanically modified in a conventional 
manner such that the pen is replaced with the jetting head 400. The general operation and structure of the 
plotter 800 will not be described in detail. The plotter 800 accepts commands from the computer 700 thru a 
standard RS-232 serial interface contained within the interface unit 600. The plotter 800 processes the 

75 commands and produces control signals to drive an x-axis motor (not shown) and a y-axis motor (not 
shown). The x-axis motor is used to position the jetting head 400 and the y-axis motor is used to position a 
drum (not shown) to which the printing target 1 is attached. 

The plotter 800 produces a pen down signal PENDN. This signal is applied to the control unit 500 and 
indicates that the plotter 800 is ready to begin a printing operation. 

20 The control unit 500 also receives control signals frono. the interface unit 600. These signals include 
signals HIGHER', LOWER" to control the magnitude of the pulse applied to the transducer 434; a reset 
signal RST to reset the control unit 500; and a series of print signals PRP. The generation of these signals 
will not be described in detail since their production is performed by the conventional interface unit 600. 
The jetting head 400 and fluid supply system 200. 300 are initialized and operate substantially as 

25 described above. The jetting head control unit 500, shown in Figs. 5a - 5e comprises a print control circuit 
510. a pulse generator 530, a high voltage supply 540, and a strobe pulse generator 560. The control unit 
500 also comprises a power supply. However, since the power supply is of conventional design it will not 
be shown or described in detail. 

The print control circuit 510 receives the pen down signal PENDN from the plotter 800 and comprises a 

30 transistor QlOO, a one-shot circuit U100. two NAND-gates UIOl, Ul02, a line decoder multiplexer U107 and 
four inverters U103-U106. The pen down signal PENDN is applied to the base of the transistor QlOO by 
resistors RlOO, R101 and diode DIOO. The emitter of transistor QlOO is tied to ground and the collector is 
connected to the +5 volt supply by resistor R102. 

The one-shot U100 comprises inputs A, B and an output Q. The B input of the one-shot U100 is 

35 connected to the collector of the transistor QlOO and the A input is tied to ground. The time period of the 
pulse produced by the one-shot UlOO is determined by a resistor R104, a variable resistor R105 and a 
capacitor CI 00. The output Q of the one-shot U100 is combined with the collector output of the transistor 
QlOO by the NAND-gate UIOl and then inverted by the NAND-gate U102. The circuit is operative to 
produce an adjustable delay in the application of the pen down signal PENDN to the control unit 500, 

40 The line decoder U107 is circuited to function as a 3 input AND-gate. The output of the NAND-gate 
U102 is applied to the first input of the decoder U107; the print signal line PRP comprising a series of 
pulses from the interface unit 600 is applied to the second input; and a jetting head ON/OFF signal from 
switch SI is applied to the third input. The inverter U106 inverts the output of the line decoder U107 to 
generate the print control signal PRT" and the inverters U103-U105 invert the control signals LOWER'. 

45 HIGHER', and RST signals, respectively. 

The high voltage supply 540. shown in Fig. 5b. provides +175 volts DC to produce a maximum puise 
of +150 volts peak to peak at the reagent jetting head 400. The high voltage supply 540 comprises 
differential amplifier U12 and transistors Ql, 02. Q13. 014. A stable reference voltage of -2.5 volts DC is 
produced at the junction of a reservoir R13. connected to the -15 volt supply, and a diode CR6. connected 

50 to ground. The reference voltage is combined with a resistor R14 to produce an adjustable, stable voltage 
reference for the amplifer U12. The reference voltage is applied to the inverting input of the amplifier U12 
through a resistor Rll. The noninverting input of the amplifier Ul2 is connected to ground by a resistor 
R12. The amplifier U12. in combination with a feedback resistor R10. produces an output signal proportional 
to the difference of the voltage reference signal and the ground potential. 

55 The output of the amplifier U12 is applied to the base of the transistor 02 whose collector is connected 
to the +15 volt supply. The signal produced at the emitter of the transistor Q2 is applied to the base of the 
transistor 01 through resistors R8. R6. R5, a transformer LI and diodes CR4. CR2. CRI. The emitter of the 
transistor Ql is connected to ground and the collector is connected to the +15 voltage supply through the 
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transformer LI . A diode CR3 connects the collector of the transistor Q1 to the junction of the resistor R5 
and the diode CR4. The transistor Qi is biased for proper operation by resistors R7, R6, R5. The resistor 
R7 and a capacitor C22 connect the junction of the resistor R8. R6 to the +15 voltage supply. 

The transistor Q1 and the transformer L1 form a "flyback" blocking oscillator. Any increase in current 

5 supplied by the transistor Q1 produces an increase in energy transferred through the secondary winding of 
the transformer LI and diode CR5. Therefore, an increase in current supplied by the transistor Q1 results in 
an increase in power available to the high voltage output. The diodes CR1-CR4 form a "Baker clamp" which 
prevents transistor Ql from saturating. The clamp thereby avoids transistor storage time. 

The diode CR5 is connected to a multiple pi filter formed by the inductors L3, 12, capacitors C24, C21, 

10 C41 and resistors R29. The multiple pi filter attenuates ripple and switching spikes in the signal supplied to 
the transistor Ql3 which produces the high voltage output V+ + . A resistor R64 connects the base of the 
transistor 013 to the emitter and to the resistor U29. The base is also connected to the collector of the 
transistor Q14 by a resistor R65. The base of the transistor Q14 is connected to the +15 volt supply by a 
resistor R67 and to ground by a resistor R66. The emitter of the transistor Q13 provides a signal HV 

75 SENSE which is fed back to the inverting input of the amplifier U12 through a resistor R9. The high voltage 
output V + + is produced at the collector of the transistor Q13. The proper biasing of the transistor Q13 is 
provided by resistor R64 and the biasing circuit comprising the transistor Q14, resistors R67. R66, R65. 

The pulse generator 530, shown in Figs. 5d, 5e, comprises an opto-isolator U18, a one-shot U23, a 
digital to analog (D/A) converter U30 and two binary counters U24, U25. The pulse generator 530 accepts 

20 control signals PRT, LOWER', HIGHER', RST and produces the activation pulse which is applied to the 
transducer 434. In normal operation, the PRT" control signal is supplied to the opto-isolator U18 by a jumper 
JMP between contact points E5, E6. The opto-isolator Ul8 is of conventional design and comprises a light 
emitting diode (LED) circuit and a photo-element circuit. A resistor R15 operates as the load resistor for the 
LED circuit of the isolator and a capacitor C25 suppresses transient noise on the voltage supply to the 

25 isolator U18. The output of the isolator U18 is applied to one input of the one-shot U23 whose time constant 
is adjustably determined by resistors R38, R25 and a capacitor C30. The pulse from the non-inverting 
output of the one-shot U23 is fed to the base of a transistor 09. A resistor R39 sets the approximate base 
current of the transistor 09 which is used as a level shifter tor converting the CMOS signal level to the +15 
volt DC signal level. 

30 The control of the rise and fall rates of the pulse generator 530 is accomplished by directing a pair of 
current source transistors Oil, 012 to charge and discharge a capacitor C57. The transistor 011 is 
operative as a soOrce of current and the transistor 012 is operative as a sink for current. A transistor QlO 
controls the level of the current by applying an appropriate bias current through a resistor R56 to the base 
of the transistor Oil. The biasing of the transistors Oil. 0l2 is critical to the proper rise and fall rates. 

35 Therefore precision voltage references CR13. CR15 are used to provide respective bias reference voltages. 
A temperature compensation network is formed from zener diodes CR14, CR16 and resistors R55. R54 to 
maintain stable operation of the transistors 011, 012. respectively. The variable resistors R49. R52 may be 
used to adjust the fall time and rise time, respectively, of the output puise applied to the reagent jetting 
head 400. A plurality of resistors R45. R46, R47, R48. R49, R51, R52. R53. R56, R57, R58 are used to 

40 properly bias the transistor 01 0. Oil, Q12 and capacitors C55. C60 are circuited to maintain stability of the 
circuit. 

The impedance of the output stage of the rise and fall circuitry 01 0. Oil, 012 is very high. With such a 
high impedance, circuit elements attached to the capacitor C57 could affect the linearity of the rise and fall 
time constants. Therefore, an FET input operational amplifier U32 is used as an impedance interface. The 
45 amplifier U32 is configured in the noninverttng mode and circuited with capacitors C58: C59 for stability. 

The output of the amplifier U32 is applied to an inverting amplifier U31 by means of a resistor R62. The 
amplifier U31 inverts and conditions the pulse control signal with the aid of resistors R59, R60. Resistors 
R61. R63. connected to the -15 voltage supply, provide a means for adjusting the DC level offset of the 
amplifier U31 output signal. Capacitors C51. C52 are connected to enhance the performance and stability of 
50 the circuit. 

The output of the amplifier U31 is applied by means of a resistor R41 to the positive voltage reference 
signal input REF( + ) of the D/A converter U30. The negative voltage reference signal input REF(-) is tied to 
ground by a resistor R40. The D'A converter U30 produces output signals lOUT. lOUT' which are 
proportional to the difference between the positive and nega tive voltage reference signal inputs REF( + ). 
55 REF(-). Capacitors C48, C49, C50 are connected to the D A converter U30 to enhance staoility. 

The D/A converter outputs lOUT, lOUT" are also proportional to an 8-bit binary value applied to inputs 
B1-B8. The binary value is supplied by the counters U24. LI25 which are controlled by the function signals 
LOWER". HIGHER' and RST. The LOWER' signal and the HIGHER' signals are applied to the count up and 
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count down inputs CU, CD of the counter U24 by means of opto-isotators U19, U20. The carry and borrow 
outputs CY, BR of the counter U24 are connected with the count up and count down inputs CU. CD of the 
counter U25. The reset inputs RST of both counters U24, U25 receive the RST signal by means of an opto- 
isolator U21. Resistors R16, R17. R18 are used as load resistors for the LED circuits of the isolators U19. 

5 U20, U21 and capacitors C26, 027, C28 are used to enhance the stability of the isolator circuits. 

The counters U24, U25 may optionally be preloaded to the selected 8-bit binary value through input 
lines TP0-TP7. The input lines TP0-TP7 are normally biased to the logical high signal state by resistive 
network U22. The selected binary value is loaded into the counters U24, U25 by pulling the respective 
inputs TP0-TP7 low and applying an external, active low, load signal EXT LOAD to pin TP8. The load signal 

70 pin TPS is connected to the load inputs LOAD of the counters U24. U25 and conditioned by a clipping 
circuit comprised of diodes CR9, CR10 and a pull-up resistor of the resistor network LI22. 

The noninverted and the inverted outputs lOUT, \OUT are connected to the inverting and noninverting 
inputs of a differential amplifier U29. The output of the amplifier U29 is fed back to the invert ing input by a 
resistor R50. The amplifier U29 converts the current output of the D/A converter U30 to a voltage output. 

75 Capacitors C56, C47 are provided to enhance circuit stability. 

The output of the amplifier U29 is applied to the noninverting input of the amplifier U28. The output of 
the amplifier U28 is fed back to the inverting input by means of a capacitor C46 and a resistor R37. The 
inverting input is also connected to ground by a resistor R36. To enhance the frequency response of the 
amplifier U28. a resistor R43 and a capacitor C54 are connected between the frequency compensation input 

20 FC and ground. An adjustable DC offset Is provided by connecting the output offset inputs OF, OF with a 
variable resistor R42. The wiper of the resistor R42 is connected to the high voltage power supply output 
V+ +. 

The output of the amplifier U28 is also connected to the base of a transistor 04 and through diodes 
CR11, CR12 to the base of a transistor Q7. The transistor 04, 07, 03 and resistors R30-R35 form an output 
25 circuit capable of driving high capacitive loads at high slew rates and wide bandwidth. The vanable resistor 
R31 may be used to set the maximum current through the bias network R30, R33 by measuring the voltage 
drop across resistor R35. 

The strobe generator 560 produces a strobe pulse and comprises transistors 01 01 -01 05 and a one- 
shot circuit U108. The strobe intensity is determined by the circuit comprising the transistors 01 01 -01 04 

30 and resistors R109-R115. The circuit is connected to the anode of the LED 900 and receives two inputs 
from the interface unit 600 to produce four levels of light intensity in the LED 900. 

The activation aand duration of activation of the LED 900 is determined by the one-shot U108 and the 
transistor 0105. The one-shot U108 comprises inputs A, B and an output 0. The strobe signal STROBE is 
applied to the B input from the interface unit 600. The duration of the one-shot U108 output pulse is 

35 controlled by the adjustable RC network R107. R108. The output O is applied to the base of the transistor 
01 05 by resistor R108. The collector of the transistor 01 05 is connected to the cathode of the LED 900 to 
draw current through the LED 900. 

The computer 700. control unit 500 and plotter 800 must be initialized. The initialization of the computer 
700 and the plotter 800 will not be discussed since these units are of conventional design and operation. 

40 To initialize the jetting head control unit 500. the computer 700 directs the interface unit 600 to issue a 
reset command. The reset signal RST is conducted to the control unit 500 whereupon the counters U24, 
U25 are cleared. The computer 700 then retrieves from its memory, or by conventional operator input, the 
desired digital setting for the D/A converter. This setting may also be calculated from data and may be 
tailored to spedftc sizes of jetting heads 400 or reagent fluids. The computer 700 then issues a series of 

45 commands, through the interface unit 600. to increment or decrement the counters LI24. U25 to correspond 
to the desired binary setting. If the command directs that the counters are to be raised, then the HIGHER* 
signal is applied through the opto-isolator U20 to the count up CU input of the counter U24. Similarly, if the 
command directs that the counters are to be lowered then the LOWER' signal is applied through the opto- 
isolator U19 to the count down CD input of the counter U24. Since the carry and borrow outputs CY, BR of 

50 the counter U24 are connected to the count up and count down inputs CU, CD. respectively, of the counter 
U25. the digital setting applied to the D/A converter U30 may range from 0 to 255. Alternately, the counters 
U24. U25 could be initialized to a desired setting by loading the binary value on the lines TP0-TP7 and 
strobing the EXT LOAD line. 

Once the control unit 500 and the plotter 800 are initialized, the printing cycle may begin. The computer 

55 700 issues a command to the interface unit 600 to produce the series of PRT signal pulses. The computer 
700 then commands the plotter 800 to pnnt. for example, a line along a selected path. The plotter 800 
positions the jetting head 400 and target 1 and issues the pen down signal PENDN. The signal is delayed 
by the print control circuit 510 to ensure that the target 1 is properly positioned. At the expiration of the 
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delay, the signal is ANDed with the closed enable switch S1 and the series of print pulses PRT. The result 
of the AND operation is the application of the PRT" pulses to the pulse generator circuit 530. 

The PRT" signal is applied through the jumper JMP to the opto-isolator U18 and then to the one-shot 
U23. The one-shot U23 produces a pulse signal which is then converted from CMOS signal levels to the 15 

5 volt DC signal level by the transistor Q9. The rise and fall circuitry comprising 01 0. 011, 012 converts the 
square wave pulse into a pulse having the rise and fall characteristics preset by the resistors R49. R52. The 
conditioned pulse is then amplified by the amplifier U32 and applied to the amplifier U31. 

The amplifier U31 converts the polarity of the conditioned pulse to that acceptable by the D/A converter 
U30 and supplies an adjustable DC offset. The DC offset is used to counteract possible distortion 

70 attributable to the amplifier U31. The distortion arises in that, tor the amplifier U31 to be adequately 
responsive, a small degree of current must flow through! the resistor R41. This current creates an offset 
condition at the output of the amplifier U29 which is then scaled by the D/A converter U30 in correspon- 
dence with the binary data. The resistor R63 allows a small amount of current to be applied to the amplifier 
U31 to control the offset voltage attributable to the current flowing through the resistor R41 . 

75 The D/A converter U30 scales the difference between the inputs REF{ + ), REF{-) using the binary data 
supplied to input lines B1-B8 to produce a current output pulse lOUT and a current inverted output pulse 
lOUT. The two outputs lOUT. lOUT* are fed to the amplifier U29 which convert the current outputs into a 
single voltage output. The scaled, conditioned pulse is then applied to the output circuit comprising the 
amplifier U28 and the transistors 03. 04. 05, 06. 07. The circuit produces a high voltage pulse with the 

20 aforementioned rise and fall characteristics to drive the piezo-electric transducer 434. 

The high voltage pulse is applied to the transducer 434 and causes a droplet 2 of fluid to be propelled 
onto the target 1. Since the pen down signal PENDN is stili applied, additional droplets 2 are produced from 
the jetting head 400, The plotter 800 moves the jetting head 400 and target 1 along the desired path during 
the emission of the droplets 2 to produce the desired printed line. When the printing is complete, the plotter 

25 800 removes the pen down signal PENDN and the droplet emission stops. Of course it should be 
understood that dots, circles and the like could be produced by appropriate positioning of the target 1 and 
jetting head 400. 

The size and uniformity of the droplets 2, as well as the presence of any satelite droplets, may be 
observed with the aid of the scope 950 and the LED 900. The scope 950 and the LED 900 are positioned 

3D such that the droplets 2 pass between the scope 950 and tne LED 900 and within the focal range of the 
scope 950. The strobe pulse when applied to the LED 900 causes the LED 900 to momentarily flash. The 
timing of the activation and the width of the pulse may be adjusted such that the flash occurs when the 
fluid, expelled in response to the high voltage pulse, is between the scope 950 and the LED 900. The 
dispensed quantity of fluid may then be observed in flight or at or near the momement of separation from 

35 the orifice 433. Corrections based on tne observation may then be made to the system 10, . 

Since each droplet 2 is small in volume, the droplet 2 may be rapidly absorbed Dy the target i. thereby 
allowing rapid and precise placement of a variety of reagents on the target 1 with reduced drying time and 
reduced potential of fluidity mixing. In addition, the ability to place small droplets 2 in a precise manner 
enables the target 1 to be printed in a high density matrix with a variety of reagents as isolated matrix 

40 elements. 

In some printing applications, particularly when printing fluids of flow viscosity and surface tension, it 
may be desirable to force the fluid through the jetting tube 432 under pressure ana allow the vibrations 
produced by the transducer 434 to break the emitted fluid stream into precise droplets 2 Under this mode 
of printing, the emission of droplets 2 can not be stopped by cessation of the tranducers activation ouise it 

45 is therefore necessary to prevent fluid emission by other means. One preferred means of momenianly 
stopping emission of the droplets is shown schem atically in Fig. 4. In this arrangement, structure simiia* to 
structure represented in Fig. 3 in form and function, is represented by like reference numerals. 

The arrangement, generally represented by the numeral 20. includes a closed reagent recirculation 
system comprising a normally close three way valve 970. a sump 960 and a recirculation pump 980. In the 

50 continuous mode, the reagent fluid is forced out the orifice 433 by hydraulic pressure and broken into a 
series of substantially uniform droplets 2 by movement of the transducer 434. A regulated, filtered air 
supply 100 is used to pressurize the reagent fluid reservoir 200. The reagent fluid within the reservoir 200 
may optionally be agitated by a magnetic stirer unit 990. This is especially useful for reagent fluids 
comprising suspended particles. 

55 The three-way valve 970 comprises a common channel, a normally open channel and a normally closed 
channel. The fluid is forced through the filter 300 and applied to the normally closed channel of the valve 
970. When the normally closed channel is closed, the normally open channel of the valve 970 functions as 
a vent for the reagent jetting head 400. The common channel is connected to the reagent supply tube 430 
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of the jetting head 400. The reagent supply tube 430 is also connected to the sunnp 960. 

in operation, the normally closed channel is opened by an appropriate signal supplied by the connputer 
700 which also closes the normally open channel. When the normally closed channel is opened, fluid is 
permitted to pass to the sump 960 and to the jetting head 400. The sump 960 collects the reagent fluid not 

5 transferred to the jetting head 400. The sump 960 supplies the collected fluid to the inlet side of the 
recirculating pump 980 which returns the fluid to the reservoir 200. The returned fluid is then mixed with the 
contents of the reservoir 200 and is available for recirculation. 

When operating in the continuous mode, rather than interrupt the continuous stream of print pulses to 
the jetting head 400, the printing may be momentarily stopped by closing the normally closed channel of 

70 the valve 970. The closing of the normally closed channel stops the flow of reagent fluid to the jetting head 
400 and allows the jetting head 400 to vent to atmospheric pressure. With the fluid supply blocked, the 
transducer 434 is unable to expel further droplets 2. Thus, if positioning of the target 1 by the plotter 800 
requires a longer time interval than the time between droplet 2 emission, the computer 700 may close the 
normally closed channel of the valve 970. The plotter 800 may then position the target 1 or position a new 

75 target 1 as desired. 

When printing, the active ingredient of the reagent is tailored to achieve a desired concentration per unit 
area on the target 1 . However, to a certain extent the final concentration per unit area can be adjusted by 
varying the density of the droplets 2 printed on the target 1. The preferred embodiment is particularly well 
suited to this application due to its ability to print precise, discrete pels of reagent. 
20 A second preferred embodiment of the jetting head is illustrated in Figs. 6a-6b and is generally 
represented as 400'. The jetting head 400' comprises housing formed into three sections 401', 402', 403'. 
The housing section 403' comprises a recessed region which forms the reagent fluid reservoir 200' when 
the housing section 403' is positioned against housing section 402'. 

The jetting head 400' further comprises a piezo-electric transducer 434' and a reagent jetting tube 432' 
25 similar to those of the first embodiment. The jetting head 400' and the transducer 434' are most clearly 
shown in Fig. 6b. The jetting tube 432' defines an orifice 433' at one end and a reagent fluid receiving 
aperture 431' at the other end. The transducer 434' is mounted to the jetting tube 432' concentrically about 
the mid-region of the tube 432' with epoxy. 

The transducer 434' and the jetting tube 432' are positioned in channels 420', 418'. 416' located in the 
30 housing sections 402', 401'. The channel 416' comprises a plurality of sealing teeth 412' operative to 
engage and seal against the fluid receiving end 43V of the jetting tube 432'. The channel 416' is connected 
to the reagent fluid supply channel 430'. The supply channel 430' ts connected with the fluid reservoir 200' 
by means of an aperture 431' through the housing section 402'. shown in Fig. 6b. 

The reservoir 200' comprises a flexible reservoir lining 201' adapted to contain the reagent fluid. The 
35 lining 201' comprises one aperture which is connected to the housing 402' to allow the fluid to pass from 
the lining 201'. A vent (not shown), located in the housing 403', allows the space between the reservoir 200' 
and the lining 201' to be vented or pressurized. A filter 300' is positioned within the aperture 202' to trap 
unwanted particulate foreign matter. 

Electrical pulses are supplied to the transducer 434' by means of two contact pins 422'. The pins 422' 
40 are inserted through respective apertures 419' of the housing section 402' and respective apertures 421' of 
the housing section 403'. Two thin electrically conductive strips 410', 411', shown in Fig. 6b, are used to 
connect the transducer 434' with the contact pins 422'. A protective shield 405' extends from the housing 
position 403' to partially isolate the protruding portions of the contact pins 422'. 

The function and operation of the jetting head 400' is similar to that of the jetting head 400 and 
45 therefore will not be discussed in detail. The collapsible inner lining 20V of the reservoir 200 allows the 
jetting tube 432' to be primed by pressurizing the reservoir 200' through the vent 205'. Once primed, the 
jetting head 400' may be used as described above in reference to the jetting head 400. 

The jetting head 400' provides an advantage in that the entire fiuidic system is contained in one 
housing. Such containment allows for fast and efficient replacement of the jetting heads without fluid 
50 contamination problems. 

A third preferred embodiment of the jetting head is shown in Fig. 7 and generally represented as 400*. 
The jetting head 400' comprises a housing 403*. a reagent fluid supply tube 406'. a piezo-electric 
transducer 434" and an orifice plate 404'. The housing 403" defines a conically shaped fluid chamber 432*. 
An orifice plate 404". defining an orifice 433^ is fastened to the housing 403' such that the orifice 433' is 
55 located at or near the apex of the conical fluid chamber 432'. 

The fluid feed tube 406" is attached to the housing 403' and defines a supply channel 430'. The supply 
channel 430" is in fluid communication with the fluid chamber 432' by means of a connecting channel 431'. 
The base of the fluid chamber 432' is formed by the disc-shaped transducer 434'. The transducer 434' Is 
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held in position by a hold down plate 402" attached to the housing 403*. The electrical connec tions to the 

transducer 434' are of conventional design and are therefore not shown. The housing 403" further 

comprises a threaded aperture 406" for nnounting the jetting head 400". 

The jetting head 400" operates in a manner similar to the jetting heads described above. However, in 
5 this jetting head the transducer 434' is normally disk shaped. When the electrical pulse is applied, the 

transducer 434" bends slightly, thereby altering the volume of the conicaliy shaped jetting chamber 432*. 

The change in volume of the chamber 432" causes the expulsion of fluid through the orifice 433* and the j 

intake of fluid through the supply channel 430" as described in reference to the jetting head 400. 

A fourth preferred embodiment of the jetting head is shown in Fig. 8 and is generally represented as 
10 400"" . The jetting head 400" is very similar in form and function to the jetting head 400 and will not be s 

described in detail. The jetting head 400" comprises two symmetrical housing sections. The sections may 

be connected together by means of apertures 409" and screws, not shown. When assembled, the housing 

sections 404", 402" form a T-shaped supply channel 410" . 

In operation, the jetting head 400" functions in a manner similar to the jetting head 400. The jetting 
75 head 400" is especially suited for use in the continuous mode, but may also be used in the drop on 

demand mode. In the continuous mode, the fluid is circulated continuously through the supply channel 430" 

allowing the jetting tube 432" to withdraw as much fluid as required. 

By way of illustrating and with no limitations intended the following information Is given to further 

illustrate the above described embodiments. The computer 700 is an IBM Corporation Personal Computer 
20 with 640 kbytes of RAM memory. The interface unit 600 is a Burr Brown interface unit model number PC 

20001. The plotter 800 is manufactured by Houston Instrument as model number DMP-40- Communication 

between the plotter 800 and the interface unit 600 is performed through a standard asynchronous serial 

communication port. 

The electrical pulse applied to the jetting head 400 to activate the transducer 434 comprises a rise time 
25 of approximately 5 usees, a tall time of approximately 5 usees and a pulse width of approximately 35 usees. 
When the transducer 434 is operated in the drop on demand mode, the voltage potential of the pulse is 60 
volts plus or minus 10 volts and the pulse frequency can be up to 4 khz. When the transducer 434 is 
operated in the continuous mode, the voltage potential of the pulse is 30 volts plus or minus 10 volts and 
the pulse frequency can be up to 10 khz. 
30 The jetting tube 432 is manufactured from a pyrex glass tube and measures .027 Inches outside 
diameter and .020 inches inside diameter. The tube is drawn to a closed taper in an electric furnace. The 
tapered end is then' cut and ground to a desired orifice opening of .002 to .004 inches in diameter. The tube 
is cut to a final length of .945 inches in the case of the dispenser embodiment and ultrasonically cleaned in 
acetone. After being cleaned and dried the large end of the tube is fire polished. If desired, the orifice end 
35 of the tube may receive a coating, such as a hydrophobic polymer, to enhance droplet separation from the 
tube. 

The supply tube 430 is formed from .023 inch inside diameter and .38 inch outside diameter 
polyethylene tubing produced by Intramedic Corp. as model number #14 170 11B. During assembly, one 
end of the tubing is stretched over a warm tapered mandrel. The stretched end of the supply tube 430 is 

40 then inserted over the large fire polished end of the jetting tube 432. The assembly is then cleaned and 
baked in a circulating air oven at 50**C. for 10 minutes. 

The transducer 434 was purchased from Vernitron of Cleveland. Ohio as model number PZT-5H. The 
electrodes 437, 436 are compnsed of nickel and are separated from each other on the outer surface of the 
transducer by approximately .030 inches. The jetting tube 432 is inserted into the cylindrical piezo-electric 

45 tube 434 and secured with epoxy manufactured by Epoxy Technology of Bellenca. Massachusetts as model 
number 301. The epoxy is apolied at the junction of the tube 432 and transducer 434 with a syringe. The 
epoxy flows along the tube 432 Inside the transducer 434 by capillary action. The assembly is then baked 
in a circulating air oven at 65 °C. for one hour to cure the epoxy. 

The contact pins 422 are secured to one of the housing sections 402, 404 with a drop of epoxy. The 

50 transducer jetting tube 434, 432 is placed In the housing such that the orifice end 433 of the tube 432 
protrudes approximately .030 inches from the housing 403. 404. A drop of silver epoxy Is placed between 
each contact pin 422 and the transducer 434 to ensure a secure electrical connection. Epoxy is also applied 
to the junction of the housing 402, 404 and supply tube 430. The other section of the housing 402. 404 is * 
then screwed into place. 

55 The periphery of the housing 402, 404 is sealed with a capillary sealer such as cyctohexanone. Epoxy 
Is then added around each contact pin 422 and around the orifice end 433. The assembly Is then baked in 
a circulating air oven at 65 "0. for one hour. 

The filter 300 is formed from a polyester mesh with 30 um pores and positioned In a polypropylene 
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housing. The air pressure supplied to the reservoir 200 during continuous printing operations is regulated at 

approximately 10 to 30 psi. 

The reagents used have the following characteristics: 

Printing (drop on demand mode): 
5 Fluid viscosity range: 1 - 30 centipoises 

Fluid surface tension: 20 - 70 dyne/cm 

Printing (continuous mode): 

Fluid viscosity range: up to 50 centipoises 

Fluid surface tension: not measured 
70 Dispensing (drop on demand mode):. 

Fluid viscosity range: 2 - 30 centipoises 

Fluid surface tension: 20 - 70 dyne/cm 

A measure of the performance and selected operating characteristics for a typical jetting head are 

presented in Figs. 9-11. Fig. 9 is a graph of the mass of a droplet as a function of droplet emission 
75 frequency for three fluids. The viscosity of the fluids were 1, 5 and 24 centipoise and the transducer 

excitation pulse width was 35 microseconds. As shown in Fig. 9, the higher fluid viscosity results in a more 

stable operating performance of the jetting head. Fig. 10 is a graph of droplet velocity as a function of 

droplet emission frequency for fluid viscosities of 1, 5 and 24 centipoise. The log of the total fluid weight as 

a function of the log of the number of droplets emitted is shown in Fig. 11. The fluid used has a viscosity of 
20 2 centipoise. a surface tension of 20 dynes/cm, and a density of .8 grams/cc. The transducer excitation 

pulse was 80 volts and the excitation frequency was approximately 711 Hz. 

Some blood typing reagents and some allergen reagents have very low viscosities and surface 

tensions. Although in some cases viscosity modifiers, such as glycerol, dextran, glucose, and the like, may 

be added to increase the viscosity, a few reagents are adversely affected by such modifiers. 
25 Developing stable and reproduceable demand mode jetting is difficult with very low viscosities. 

Although droplet emission can be established at some fundamental frequencies, the droplets dispensed 

may have small satelite droplets which reduce the accuracy for metering and dispensing applications. 

However, even with the satelite drops, sufficient reagent is adequately delivered for most print applications 

without a substantial decrease in print quality. 
30 Glycerin may be used as a viscosity modifier to improve jetting reliability and to prevent obstruction of 

the orifice arising from evaporation of the reagent fluid components. Glycerin has been found especially 

beneficial for those reagents containing particulate material. The evaporation of the fluid component results 

in a concentration of glycerin located at the orifice. The plug of glycerin substantially prevents further 

evaporation of the reagent fluid. During the next activation cycle of the transducer, the plug of glycerin is 
35 expelled from the orifice. 

When operating in the dispensing mode the volume of the droplets can be varied to substantially 

uniformly contain from 100 pico-liters to 1 micro-liter. The droplets can be produced at a rate of 

approximately 1 khz to 8 khz. When operating in the printing mode the size of the pel made by each 

droplet measures approximately .001 -.01 2 inches in diameter. 
40 A copy of the program used in the computer 700 for a printing operation Is attached hereto as Appendix 

A. The values, manufacturer and manufacturing part number of the circuit components of the jetting control 

unit 500 are substantially as follows: 
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CAP . AX I AL2 2 0HF(c;2 5 0 VDC 


IIALLORY 




L?2219250C7?5 


CIO 


CAP. AXIAL ALUI^I ELEC. 


MALLORY 




4700 OMFi?-25^7DC 


TCG472UC25NIC 


Cl,2,3,55,60 


CAP. RADIAL DIPPED TAJ^IT. 


KEMET 




10MF@25VDC 


. T35OE106M025AS 


C53 


CAP. RADIAL DIPPED TAI^TT. 


KEMET 


1MF@35^7DC 


T35OA105K035AS 


C36 


CA.P.RADI.AL DIPPED TANT. 


KEMET 




47MF'310\T3C 


T350K565KC10AS 
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Ref. Nuneral 


Description 




5 of Comoonent 


and Value 




C54 


CnP. RADIAL SILV MICA 






100PF300VDC 






Cr.r. RADIAL bILV nlUA 






20PF300VDC 




C49 


CAP. RADIAL SILv. IVIICA 


KAilLj/yN 




39?r 300\TDC 


bPlz3yU JJUl 


C39 


CAP. RADIAL X7R MLC 


KEMET 




. 015Mr@50VDC 


Cj 15C102klR5CA 


75 C6 


CAP.rJUDIAL X/R MLC 


KLMET 




. 022MFia50VDC 




C30, 35 , 37 


CAP.RADIaij Z5U Mi-C 




, 015MF©50VDC 


C315C153K5R5CA 


C4,7 


CAP. RADIAL 25U MLC 


KEMET 


20 


. 01MF@50VDC 


C.3 15C103j\5RDCr^ 


C4,5,5,9, 11-19, 


CAF.i^ADI/^w 25U i-*^- 


Kz.Mr- J. 


22 , 23 , 25-28 


. 22MF@50VDC 


Co22C224]yibUbCn 


C31-34, 37, 42, 43 






47,46, 5C-52 






25 C55 , 5S , 59 






C4 6 


CAP . \7ARI . Z-12PF . 


JUriAiNbr*JN ^?ytDZD 


CR7,8,9,10, 


DIODE SIL. 


ITT . FAIRCHLD . 1N4148 


11,12,17 






30 CRl ,2,3,4 


DIODE SIL. FAST 


GENL. INST.EGPIOD 


CR5 


DIODE SIL. FASTHIVCIT 


GENL. INST.UF4007 


CR6,13,15 


DIODE SIL.REF.2, 5C0VDC 


NATL . SEMI-LM3852-2 . 5 


CR14, 16 


DIODE SIL . ZEMER3 . 37 . 25W.2.TT 


MOTOROLA 1N4622A 


U6. 13. 15, 17 


SVHTCH 8 POSITION DIP 


CTS 206-8 



35 Q2 , 9 , 12 
08, 10,11 
04 
07 

Ql 
40 Q3, 14 
013 
US, 27 
U23,26 
U7-10 
U30 

U24,25 
U28 
Ul 
U4 
U3 

U12,29,31,32 
U18, 19,20,21 
R24,42,63 
R38,49,52 
R20 

R14,31 



45 



50 



55 



TRANSTOR . COMMON MPN 

TRAMSTOR . COI-IMON PNP 

TRAI^ISTOR . HI VOLTHI FREO . MPN 

TRAMSTOR. HIVOLTH: FREQ . PNP 

TRAuNSTOR. HI VOLTHI IMPN 

TRAl^lSTOR . H I VOLTMPM2N3 439 

TRANSTOR. HI VOLTPNP 

IC i-SHOT 74HC221 

IC 1-SHOT 74LS221 

IC COt-IPARATOR 74HC688 

IC CONVERTER DAC0800 

IC COUNTER 74HC193 

IC HI SLEW HI VOLT OP AMP 

IC HYBRID DC/DC COhH/ERTER 

IC OC DRIVER SN7406 

IC OCTAL LATCH 74HC374 

IC OP AMP LF256 

IC OPTO ISOLATOR 

POT 1 0 OKOHMJsWATT 1 0% 

POT 1 OKOHMijWATTl 0% 

P0T2 5KOHIvii3WATT10% 

POT2KOHMisWATT10% 



MOTOROLA 2N2222A 
MOTOROLA 2N2907A 
MOTOROLA MPSUlO 
MOTOROLA MPSU60 
TI ,M0T0R0LATIP48 
MOTOROLA 2N3439 
MOTOROLA MJE5731 
NATL. SEMI MM74HC22IN 
NATL. SEMI DM741S221N 
NATL. SEMI MM74HC688N 
NATL. SEMI DAC0800LCN 
NATL. SEMI MM74HC193N 
BURR- BROWN 3584JM 
BURR- BROWN MODEL 724 
NATL. SEMI DM7406N 
NATL. MM74HC374N 
NATL. SEMI LF256H 
HEWLTT-PCKRD HCPL2300 
BOURNS 3622-1-104 
BOURNS 3 622W-1-103 
BOURNS 3622W-1-253 
BOURNS 3 622W-1-202 
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Ref . Numeral 
of ComDonent 


Description 
and Value 




VRI 


REGULATOR 5VDC 




RIO 


RES . 1MEG0HI'113V/ATT5%C 


. F . 


R2 , 4 


RES . 1 . 2KOH-IJiWATT5%C 


.F. 


R32 


RES . 1 . 6KOHI»IiiWATT5%C 


.F. 


R44 


RES . 1 . 8KOHI>IJaV^ATT5%C 


.F. 


RI 


RES . 10MEG0HI^J5V;ATT5%C . F . 


R5 , R22 


RES . 100HI<Iis'WATT5%C . r 




R65 


RES . lOOKOm-Iis-WATTS^^C 


.F. 


R59 


RES . lOKOHI'iJ^V/ATTl^iH . 


F. 


RlOO 


RES. 270OHI'l 




R101,108 


RES . 470OKM 




R102 . 1C3 


RES IKOHM 




106, 109, 110 






R104 






R1C5 


A. W X ■ X W w £\Vv/l^ 1 




R107 


POT. lOKOKI^. 




Rill , 113 


RES.220OHI'] 




R112 


RES . 22CHI*! 




Rll- 115 


RES. 470HI<I 




no 


CAP. 10KF03 5 VFC 




PI HP 


C.AP.IOCOO PF 




m no 


DIODE 




oi no 105 


TRA>:STOR 




01 1 np 


TRANSTOR 




0103,104 


TRAl^ISTOR 




UiOCUlOS 


IC I -SHOT 




U103, 104 


IC INVERTOR 




105, 106 






U108 


IC LIME DECODER 





Manuf acrurer 
and Part No. 

NATL. LM340T- 5.0 



DALE KM55D1002F 



1N4148 
2N2222 
2N3906 
2N3S04 
74LS123 
74LS04 

74LS138 

Of course, it should be understood that a wide range of changes and modifications can be made to the 
preferred embodiments described above. For example, the transducer could be of a type other than piezo- 
electric such as magneto-strictfve. eiectro-strictive. and electro-mechanical. It is therefore intended that the 
foregoing detailed description be regarded as illustrative rather than limiting, and that it be understood that 
it is the following claims, including all equivalents, which are intended to define the scope of this invention. 



APPENDIX 
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Riiomt ^it Printtr 
Rcigtni C«Iibritio(t 

OHsit Data Sourci Lint 



Pft6£ ! 
07-M-W 

!^ Ptrtoml Coipotir BASIC Cotpiiir V2,00 



70 



0030 
0030 
0030 
0030 
0030 
0030 

75 

0030 
0030 
0030 
0030 
0030 



20 



0030 



0030 
0030 
0030 
0030 
0030 
25 0030 
0030 
0030 
0030 
0030 
0030 
30 0030 
0030 
0030 
0030 
0030 
0030 
35 0030 
0030 
0030 
0030 
0030 
0030 
40 0030 
0030 
0030 
0047 
0047 
0041 
0048 
004t 
004E 
0059 
O0S9 
OO&O 
OO&A 

om 

0079 
00B3 
OOAO 
OOBO 

55 



45 



50 



0C0& 
0004 
OOOh 
0006 

mh 

mi 

COOi 
OC0& 
OOOi 
OOOi 
0006 
0004 
C004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
O004 
01F£ 
OlFE 
OlFi 
OlFi 
0200 
0200 
020O 
0204 
0204 
0204 
0204 
020A 
020A 



klfi ITULtj'Reioent Jet Printer' tSUBTITLE: 'Reagent Calibrition' ILIKESIIE: 132 

AOTHSR * N. A. Cnevold 

CCPrRlSHT (C) !985 ABBOTT LABORATORIES 
REVISION - 2.0 07-01-84 NAE KicroFib iodificitioni 
- t.O 02-11-B4 NAE Creatioft of isitial codi 

5YST01 - This code can only be coipiled by the BA5C0K 

CDW>ILER, it Mill not run under the INTERPRETER!! 

DCBCRIPTIOX: 

The reagent calibrate aodult presents a lenu with 12 iteis arranged 
1% 3 coluiQS of 4 roMS. The arron keys alloM •oveicnt around the 
taie, the * and - keys increient or decretent values in the Hrst 
coluan, and the enter key exKutes coiiandi in the third cdIum. 
The second coluan is an array of ASCII strings representing reagent naie, 
concentration, density, and viscosity. The values entered in coluen one 
are drop frequency, pulse width, strobe delay, and nozzle nutber. 
The coaiands in the third coluan are start/stop, load, save, and ciit. 

DATA DICTIONARY 

RENUt Pointer to Mbich ifftu itee is active (0*U) 

HEKUKl?,!) Array for strings used to display the tcnu 

}CNU(17,41 Array for nuabers in the itnu display 

OlFFZ DiffKential to aove HENUI at arrov key input 

TYPEl Pointer set during aain scan to direct action 

KEYBUFI Storage tor string input froi tenu display 

Al Destination for single keystroke inputs 

FILEt String ahere filenaae is built for reagent data file 

REANAnEt String nhere reagent naae is stored 

Rl Roi to display special graphics character in ttflu 

CI Coluan to display spKial graphics character it ittu 

n SpKial graphics charactK is read into hrrt 
OLD.AKP.VALUEI Integer value for setting pulse aiplitudi 

DICVAU Value set to digital port 0 to iac/dcc atplitudi 

SUB REA6ENT. CALIBRATE STATIC 

lin 8E»i$(W,t),nEKU(17,4) 

GOSll IKITIALIZEt 'rHd init. valuM and set scrtM 

mKl TYPH <> I 

TYPn « 0 
A$ » 



WILE Al » •• 
Af « 1KKEY> 
IF ACTIVn « 

VEND 



t AND DDUNTinE < TIHER TIfEN 60SU6 PEN.DOVN 



17 



0 268 237 



10 



75 



20 



25 



30 



35 



Retofflt Jit Printer 




Reioint Calibration 




OHstt 


Mi 


Sourct Lint 


IfiR Personal 


0060 


030A 


IF At « CHR$tI31 THEN TYPEl = 1: 


•execute <cr> 


OOCA 


020A 


IF Al « THEN TYPEl = 2: 


'increient variable 


OOEO 


020A 


IF A» » THEN TYPE! « 3: 


'decrcient variable 


00F6 


020A 


IF AS 5 CHRKO) ♦ CHf<((72l THEN TYPEl = 4; 


'up arroi key 


0U6 


020A 


IF AS * CHRStO) * CHRSieO) THEN TYPE! < 5: 


'dOMn irroM key 


0140 


020A 


IF as - CHRt(O) ♦ CHRtl75J THEN TYPE2 = h: 


'Itft arroi* key 


0165 


020A 


IF Al - CKRStO) ♦ CHRft77) TKEH TYPEl » 7: 


'right arroM key 


018A 


o:oA 


IF AS > CHRS(47I AND AS < CHRStl23) THEN TYPH 


= 8;' ascii 0 - z 


oic: 


020A 






01C2 


020A 


OK TYPEl SD5UB Tl, T2, T3, T4, T5, T4, T7, TB 




0106 


020A 






OiOB 


020A 


VEND 




OlDF 


020A 


nPEX * 0 




01E6 


020A 






oie6 


020A 


EXIT SUB 




OlEA 


020A 


REH SPA8E 





PA6E 2 
C7-l4-ai 
I2;2i:57 



40 



45 



50 



55 
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^ Reiqtftt Jit Pfintff PME 3 

Ri»9«t C^librition 07-14-W 

t2t2&:57 

Sourct Ptrsonji CoiputK BASIC Coipiltr V2.00 

'iHMiMHf SI'BROUTINES FDR THIS nODUlE *ih»h«h 

Tl: '<cr> ixKuti coiiind 

If nm < 12 THW TYPEl » OtRETURHi 'exit to print im, no iction 
OH mm - U 605UB TIA. TIB, TIC, TID 

If ninia < is THOt typei » o 

TIA: 'start/stop drop Hqm 

If «ENW{12,0I * -START' THEN 605UB START, INK 
IF «E?iU*(t2,0) » 'STOP • THEN GOSUB STOP. INK 
HEHU»(12,0) * Jim 
asm D,7:60SU6 DISPnENU 

snuRN 

START. imC: 

TIRPI » 'STOP • 

CALL DOT.OK: 'io aoduli PCI 

LOCATE 17,71:C0L0R 27,0:PfllNT 'PRINTINS'; 

wrrivEi « I 

lEETURN 

STOP. IKK: 

THnPJ » 'START' 

CAa DOT.OFF: 'Is loduU PCI 

LOCATE 17,7l:COLOR 15,0:FRINT • 
ACTIVEX « 0 
RETURN 

TIB: 'load reaqent prsHlf 

IF HENUtl^,!) > ** THEN LOCATE 2S,1:FR1?;T 'Rtageftt Hau is not spKihfd';:60SUB ANYKEY:RETURN 

GOSUB SEARCH 

IF i: < (REAKUKl 4 U TKEH SOTO FOUND 

LOCATE 25,10>L£Ntr.ENUI(6,Ul/2:PRINT RENUtt^,!);' not Found*; 
80SUB ANYKEY: 'uii for a kiyhit 
S£TURX 





OHstt 


Data 


in 


OlEA 


020A 


1 u 


OlEA 


02DA 




OIEA 


02CA 




OlEF 


020A 




0205 


020C 




021A 


020C 


75 


C22C 


020C 




0230 


020C 




0230 


070C 




mi 


020C 




025A 


C20C 




027F 


020C 


20 


029A 


0210 




02AC 


9210 




02B0 


0210 




02BO 


0210 




0265 


0210 




02BF 


0210 


25 


02CB 


0210 


02F1 


0210 




02FS 


0210 




02FC 


0210 




02FC 


0210 




0301 


0210 


30 


0301 


0210 




0317 


0210 




033D. 


0210 




0314 


0210 




034B 


0210 




0348 


0210 


35 


034D 


0210 




0391 


0210 




0391 


0210 




0397 


0210 




0397 


0210 




03AI 


0214 


40 


0404 


0214 




040A 


0214 




040C 


0214 




040£ 


02M 




0413 


0314 




0437 


0211 


45 


044S 


0211 




0448 


0211 




04eB 


021B 




04AE 


0216 




04D1 


0216 




04F4 


0218 


50 


0519 


0218 




0519 


0218 




0530 


0218 




OS&l 


0218 




05B5 


0216 




05A9 


0218 



FllEI • RI6HT$(STR$tlI),LEM(STR$IIl)).l) ♦ -REA.WP* 

OPOl FILE! FDR INPUT AS II: *ut patttrn data Hli lor rtad 

INPUT f2,ffENU(0,0)i Ttatf frtitufncy 

INPUT ll,nENU(l,0lt 'riad aiplitudi 

INPUT n,nENU(2,0h 'riad itrobe dilay 

IK7UT tl,nENU{3,0}i 'read pulse nidtb 

INPUT ll,RENU(4,0)! 'read rise tiie 

IKfin lt,nENU(S,0): 'read fall tin 

INPUT «l,KENU$(7,ni 'read toncentration 

INPUT ll,»EKUS(8,l): 'read density 

IKPUT ll,nE)iU*t9,ll: 'read viscosity 

INPUT I1,AENUI(10,I): 'read surface tension 



55 



19 
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5 RuQMl itt Pfintir PASE 4 

07-M-flA 

[6n Persofiai Coioutcr BASIC CoipUcr V2.00 



70 



75 



20 



25 



30 



35 



40 



45 



50 



Reiqtnt Calibration 




DHsti 


Data 


Source 


Lint 


05A9 


C2V& 




aCSE 11: 'done Hith data file 


C5B0 


0218 






0580 


0218 




OPEH 'READEF.RJP' FOR OUTPUT AS tl 


05C2 


0218 




PRINT il,FllEI: 'save Hlenaii io default file 


0502 


0216 




mHJ U.nimth^l): *sav» the directory naie as mU 


05F4 


021 B 




aOSE 11 


05FB 


0218 




605UB DISP.PARKS: 'ihOM ail paraeeteri 


0601 


0218 




RETURN 


06G5 


0218 






0605 


0218 


TlCi 


*«avt reagent profile 


060A 


021B 




IF nENUII6,l) » THEH LOCATE 25,UPRIHT 'Reagent Kate is not 


064E 


0218 




OPEN 'REAOIR.RJP* FOR INPUT AS 11 


06SF 


0216 




INPUT tliREAKUHI 


0671 


0218 




CLOSE 11 


0678 


0216 




IF REANUn < 80 THEN 6DTD SAVE.REA 


0687 


0218 




LOCATE 25,1:PR1HT "Directory is Full (80 reagents lax.)' 


06A1 


0218 




605UB ANYKEY: RETURN 


06A8 


0218 


SAVE.REA: 


0660 


021B 




GQSUB SEARCH 


0666 


0218 




IP II > REAWm THEH 6DT0 SfiVEREAl 


06C7 


0218 




REANUni * U 


06CE 


0218 




COLOR 15,0 


06DA 


0218 




LOCATE 25,1:PR1NT KENUS(6«l);' already eiists. Replace it with i 


070C 


0211 




M ■ " 


0716 


0218 




WILE Af « 


0725 


0218 




AS < IKKEYt 


072F 


0218 




VEND 


0732 


0216 




LOCATE 25,1:PR1NT SPACElC^l; 


074F 


0218 




IF Al « 'V OR Af = 'y' TKtJ* SOTO REPLACE 


0778 


0213 




RETURN 


077C 


0218 






077C 


0218 


5AVEREA1: 


O/ol 


Vila 




KILL 'READIR.OLD': delete old backup directory 


O/DD 






KAHE •READIR.RJP* AS •FC;3IR,0LD*: 'save old directxy 


07i2 


OllB 




OPEN •READIR.3LD" FOR INPUT AS 11 


07A3 


0216 




OPEN *READIR.RJP' FOR OUTPUT AS 12: 'set up nei dir 


07BS 


021B 






07B5 


0218 




INPUT llfREANUni: 'read Quiber of dir tntriis 


07C7 


0218 




REANUni * REANUn * 1: 'increase by i 


07B9 


0318 




NRITE t2,REAKUHl: 'save id nev dlrKtory 


07E1 


0218 






07E1 


0218 




FOR I'l TO REANUHl - 1 


07FA 


021C 




LIKE INPUT 11, Al: 'read entry froi old dir 


0807 


021C 




PRINT t2^Mi '■rite entry in ne« directory 


0B17 


D21C 




NEXT I 


0B32 


0220 






0832 


0220 




aOSE 11 


083Y 


O220 






0839 


0220 




PRINT l2,KEMUJ(6,n! '-ritf ne« entry to new directory 


0B5B 


0220 




aOSE I2i 'done Kith dirKtory 


0862 


0220 






0B62 


0220 


REPUCE: 


0867 


0220 




FlLEt « RlBHTKSTRf (REANUNI) ,L£NtSTRItREftriUHll)-ll ♦ 'REA.RJP* 


0838 


0220 
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5 

Riageoc dit ?rinlir S 
R»gtfit CilifcritiM 07-M-«4 

l2:2&tS7 

OHsrt Oitj SourcK Linr IBH Ptrsoflil CoipvtK BASIC Cospiltr V2.00 



10 OfiSB 


0220 




FJLEI FOR OUTPUT 


AS tl: 'crutr oin pattern data Hie 


089D 


0220 




VHITE IKA£NU(0,0): 


'store frequency - 


oeB9 


0220 




HRITE tt,n£NU(l,01: 


'store aiplitude 


08DC 


0270 




WRITE ll,nENU(2,0)t 


'store strobe delay 


OBFD 


0220 




mM ll,n£NU(3,0}: 


'store palie Hidth 


091E 


0220 




tfRITE ll,nENU(4,0)t 


'store rise tiae 


75 OWF 


022C 




IffilTE t!,nENU(5,0): 


'stxc fall tiif 


0H2 


0220 








0962 


0720 




URITE ll,n£NUI(7,l): 


'store concMtration 


09S4 


0720 




VRITE ll,J1£NU$t8,l)t 


'store density 


09A& 


0220 




VRITE il,KENUIt9,l): 


'store viscosity 


09Ca 


0220 




HRITE ll,n£NUIU0,n: 


'store surface tension 


20 09EA 


0220 








09EA 


0220 




CLOSE 111 'done 


Mith data file 


09F1 


0720 








09F1 


0770 




OPa 'READEF.R3P' FOR 


OUTPUT AS 11 


0A03 


0220 




PRINT II,FILE$; 


'save filenate in default file 


0A13 


0220 




PRINT ll,REKUt(4,ll: 


'save the directory naee as veil 


25 0A35 


0220 




aOSE 11 




Oft3C 


0220 




RETORH 




0A40 


0220 








0A4O 


0270 


SEARCHi 






0ft4S 


0220 




OPEV 'READIR.RJP' FOR IKPUT AS 11 


OA^ 


0220 




IKPUT ll,REAKUni: 


'rtid ttuibtr of pattKAs in dir 


OAiB 


0270 




II » I: 


'set entry pointer 


OA£P 


0220 








OAiF 


0220 


51D0P: 






QA74 


0220 




LIKE IKPUT 11, AS; 


'read neit pattern nait froi dir 


0A81 


0270 




IF A( > nEKUn&,n then SQTO search. DOHE: 'cHpire nut «ith dir tfttry 


0AA5 


O720 




II - II ♦ 1 




OAAE 


0220 




IF II < (REAKUni 4 1) 


THEN SQTO SLOOP: 'check for done 


CACl 


0220 


SEARCH.DQKE: 




0AC4 


0279 




aosE 11 




OACD 


0230 




RrmRN 




OAOl 


0220 








.n OAOl 

40 

OAOfr 


0270 


TID: 


'rtturn iiith no chinqt to nit rta^fnt cilibrfttt 


0220 




PRIHT 13/UH'; 




0A£4 


0270 




CLQSS I3i ' doit cot chMUl 


OAO 


0720 




RCTUai 




OAFl 


0229 








OAFl 


02^ 


72: 


'proctsi kty 


45 ^* 

0105 


0220 




IF BOIUI > 5 rm RETUW 


0220 




lOmnE > TIRER 




OBOF 


0224 




OaTfiTlRE « HEJrriHE . 


XDTinE 


081F 


02:c 




OJTIHE » KWIRE 




0B29 


022C 




IF DETATIIff > 0.15 THEM KULTI « I ELSE HULTl « IWLTl ♦ I 


0641 


022£ 




IF HULTl > too TWEK KULTI « 100 


50 OKI 
0B9F 


022E 




fCKU(KENUI,0) * KDIU{ttENm,0) ♦ nE}Al[nEKUI,3) » mJLi *«dd iiicriBHt 


077E 




IF HEKU(KE!m,01 > RE)IU(nEKUI,ll THEH KEKUlHENUI,0) « REKUIHEMUI,!)! 'check 


0C0& 


022E 




COLOR i5,l:E0SUB DI5PnENU:R£TURXt 'sho» mm vilut 


OCID 


02:iE 








OCIS 


072E 


T3: 


'procisi Uy 


0C22 


022£ 




IF nEKUl > 5 THEM RETURH 


55 0C31 


022E 




KEHTinE • TIltER 
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5 

Reioent Jet Printer 




Reagent Calibration 




uttset 


uata 


Source Line ISH Personal Coiputer BASIC 


70 ^^^^ 


022E 




rCI T'TTMC » UCWTTMF - fll nTIMF 
liCL 1 n 1 inc. nCm 1 inC ULU i inL 


OCAB 


022E 




UlU I iiiL ' ntilint 




02 2E 




tC nci TflTTiC ^ ft TUCU MtU TT s 1 PI PF Mill TT » Mill Tl ♦ 1 


0C7/ 


A*t*P 

02aE 




ic urn T7 \ iftft TUCU mil TT - tftft 


APfiO 
ULOT 


022c 




RFNiKMFUtiT ni z HFUtUMFHltT (\) - HFNU (K^NUZ.31 f KULTl: 'sub increient 


Oils 


022E 






75 


02 2 L 




rn' n5 (.cnciiD nTCDMCUiit C>rTllDUi 'chnu nay vain* 

tUkUK ISfWDUsUo UlarnLnU: KlIuKN; SHDi nen vamt 


0U47 


022E 






0DA9 


022E 


T4; 


'process up arroi key 


0D4E 


022E 




IF ntwul nOD 6 = 0 THEH RcTUKN: in lop row aireaoy 


0063 


022E 




DlFFI « -USOSuB NEinEHUtREiUHH; tove pointer up one 


uD/4 


A1TA 

0230 






20 007A 


0230 


id: 


• 

'process donn arroi key _ 


ou/v 


A^TA 
0230 




ir ncNUi nUJ 0*3 incN KtiUKN! in DOiiDi roil tireiDj 


nnac 
ODor 


ATtA 
DijO 




Oirrl ' iiDUSUo NcNnuiUiKciURn: lOve poincer ooin one 


ODAO 


0230 






ODAO 


0230 


T6: 


'process leH arron key 


ODAS 


0230 




IF IHKHENUI / 61 = 0 THtfi RETURN in left coluen already 


25 0DC5 


0230 




DIFFZ s -6:G0SUB NEKf.ENU: RETURN: 'love pointer one left 


0DD6 


0230 






0DD6 


0230 


T7: 


'process right arro» key 


ODDB 


0230 




IF INT(WENUI / 61 * 2 THEN RETURN "in right coluin already 


ODFE 


0230 




DIFFI - 6;B0SUB NENMEHU: RETURN: 'Mve pointer one right 


OEOF 


0230 






30 OEOF 


0230 


T8: 


input keys into KtYBUFf until (cr> is entered 


OEM 


0230 




IF BENUl > 10 THEN RETURN 


0E23 


0230 




LOCATE 25, 30; COLOR 3 1,0: PR INT "ENTER -NEi VALUE ;:CDLOR 15|0 


0Ej5 


0230 




KEYBiJr* 5 AS 


0E5F 


0234 




VHILE AS <> CHRf (131 


0E72 


0234 




LuCmTE x5,</.P8Ui 5P»Ltf(lj); 


J3 OlBF 


0234 




LULhTc 25,w;rRIHI itToUr*; 


0Efl9 


0234 




A* • ■ • 

A> « 




Wi34 




LMJIt P A* * * ■ 




0234 




fll * INKti} 


OECC 


0234 






0EF6 


0234 




Itnif 


Arcs 


0234 




TC At * njDttD\ ^im iritivrvciirti \ a tutu vpvDiir* — i trrt rvrvQiiCt t cuf ^rvDiiPti ii 
If ftl * iHR'lfl} AND ItnUtlDUrS) > 0 THEN KtlBUrS * LEFTf tKcTaUrSfLcN(lvC.iBurSl'*l} 


QF jo 


0234 




IF flf ) CHRflJlJ nHO LtJiiKEYBufJJ < IS THtN kEiBUFI « KtYBUrS ♦ A» 


0F75 


0234 




NEHO 


0F79 


0234 






0F79 


0234 




IF REHUt > 5 THEN SOTO ST0RE5TRINB 


OFBB 


0234 






''^ OFBB 


0234 




TENP « VALtKEYBUFIl 'tctp has value of keys input 


0F9B 


0238 






0F98 


023B 




'round of{ teip according to step size in aenu array 


0F98 


0238 




TEH? « IHTtTtWP / lREHU(RENUl,3n ♦ .S) • «£NU(nENUI,3) 


OFDl 


023B 






so'''' 

OFDI 


0238 




'test TEHP for laxiaui and ainiiut values in lens array 


0238 




IF TEHP > REHUlRENUI.l) THEH TERP « RENUtREHUl^l) 


lOlO 


0238 




IF TERP < REHUtn£NU:,2) THEN TERP » REHUtREHUI,2) 


104F 


0238 






104F 


0238 




'insert nei value into lenu array and update screen 


104F 


0238 




RENUtRENUI.O) « TERP 


55 


0238 




LOCATE 25,30:PR1NT S?AC£fl401; 
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5 

Reaomt 3it Printir 

Reigtnt Cilibration 

OHstt uata Sourci Line 



70 


1088 


ons 


CCLM 0,7:6QSUB DISPKEKU 


109A 


0238 






109E 


0238 






109E 


d238 


&ICAESTitIK6: 




tOA3 


0238 


n£NUJinEi:ui,n « keybufi 




103r 


0238 


LOCATE 25,30:f>RINT SPAC£t{40); 


75 


lODC 


0233 


COLOR D,7:60SUB DIBPWEMU 




lOEE 


0238 


RETDRft 




10F2 


0238 






10F2 


0238 


PEN.COtfX: 




10F7 


0238 


OC»(TI«£ « TinER 4 1 




U07 


0238 


PRIRT I3/8'; 


20 


1117 


0238 


RETURI 




niB 


0238 






lllB 


0238 


AHTKH: 




U20 


C238 


LOCATE 25,64:PRIMT 'Strike Any key..'; 




IHA 


0238 


Al » " 




1144 


0238 


WILE AS « 


25 


1153 


0238 


Al « IKKEYI 




USD 


0238 


HEK8 




lUO 


0238 


LOCATE 25,l:COL0R 15,0:PRUT 5PACEn79)ijC0L0R 15,1 




n9& 


0238 


RETURN 




U9A 


0238 






U9A 


0238 


KEVKEXU: 'wiit eld itet in ytWom, point to anil highlight neit itei 


30 


n9F 


0238 


COLOR 14,0:&0SUB DISPnENU 




llBl 


0238 


nmi s nEHui * diffi 




UBD 


0238 


IF HEKU: « 11 THEN KENUl - 10 




ncF 


0238 


IF nENUI > 15 THEN HEHUl » I5 




llEl 


0238 


COLOR 0,7:BD5UB DI5FnEHU:RETURJ( 




UF7 


0238 




35 


UF7 


0238 


INITIALHE: 




MFC 


0238 


'chjnqr to sKond screen jnd display tessagts 




IIFC 


0238 


SCREEN 0,0,1, hCDLDR 7,0:CLS:L0CATE 10,2B:PR1MT Mnitiilizing Reou DispUy*; 




1240 


0238 


LOCATE 12,33:PRINT •Pleasf Uil../ 




123A 


0238 




40 


125A 


0238 


'initialixe variables 


1 25 A 


0238 






125A 


0238 


ACTIVEX « Ot* not printiftf 




1261 


0731 






1261 


0731 


'iiitialixe plotter coi chanitl 




12il 


0238 




45 


1261 


0238 


OPEN *CDnit2400,R,8,2' AS 13 


1273 


0238 


PRINT •3,»5:aEC5,EFVl,H'; 




1263 


0238 






1283 


0238 


'initialize digital port 




1263 


0238 


SCJOE « 4 




128A 


023A 


CALL D161TAL.0UT(SCRX) 




129A 


023A 


SCRI * 0 


50 


12A1 


023A 


CAa OlSlTAL.OUTtSCRX): 'pulse reset line to set iipHtude to OV. 




t2Bl 


023A 


SCR1»4 




12B6 


023A 


CALL BISITAL.OUTtSCW) 




12C8 


023A 






12CB 


023A 


*sel harduare Dulse Hidth 


55 


12CB 


023A 


CALL SET.DOT.NIOTHIS) 'in iodule PCI 
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5 

RiaqMt ;et Printtr PASE B 

RMqMk Cjlibratifls 07-14-B4 

Offset- OiU Eoorcp tine t6lf Ptrsonal Coiputer BASIC Coipilir V2.00 



7C 


12DE 


02:c 






12DE 


023C 


'iflitiilize Mnu arrayi 




im 


</2:t 


RESTORE ARRDATA 






023C 


FOR 1X*0 TO 17 




12£B 


023C 


READ nEtlU$ni,01,HENUt(II,n! 




1311 


02TC 


READ flE)(Urn,l},nEXU(IZ,2),nENU(IZ,3},nENU(i:,4) 


75 


IJ7C 
138f 


023C 
02X 


KEIT II 




13BF 


023C 


'Mt tfelault reagent values 




l3Bf 


023C 






13BF 


C23C 


REKUtOfO) s 2000: 'frequency 




13A8 


«3C 


nEHUdfO) « 0: 'aiplitudc 


20 


13C4 


023C 


r£)(U(2,0> - It 'strobe delay 




13E0 


02:c 


KEY(U(3,0) > 090: 'pulse itidth 




13FC 


023C 


KOai(4,0) > 470: 'rise tiK 




i4ie 


0231: 


KENUlSiO) * 070: 'fall tiK 






W3C 






1436 


023C 


R£liU(6,0) * 0: 'naie 


25 


1452 


023C 


fOU(7,0) < Oi 'coficentration 




t46E 


023C 


R£KU(BtO} * Ot 'density 




MBA 


023C 


nENUt9,0) « 0: 'viscosity 






023C 


nENU(10,0) ■ 0: 'surface tinsion 




14C2 


023C 






14C2 


023C 


XO.AnP.VAlUEl * 0 'initial value of 0 voUs 


30 


14C9 


023£ 






14M 


023£ 


'change active displayed screen to first scrKn to draw and display paraieters 




14W. 


023E 






14C9 


023E 


SCREEN 0,0,0,1:CIS 




14E6 


D23E 






14E6 


023E 


COIOR 13:L0CAT£ 1,32:PRIKT 'ftEASEHT CALIBRATE*; 


35 


1S07 


02JE 


COIOR 9 




l^E 


023E 


FOR 1«2 TO 79 




ISIB 


023£ 


LOCATE 3,I:PRINT 'O-pLOCATE 5,I:PRIMT TpLOCATE 19,l:PRINT 




156F 


023E 


KEX7 I 




t58A 


023E 


FOR I>4 TO 18 




1S94 


C23C 


LOCATE I,1:PR1HT T-.iLOCATE I,2B:PRIKT V-^iLOCATE lt69!PRIHT ':";:LOCATE I,80;PRIHT 


UOB 


023E 


XEXT [ 




1&2( 


023E 


RESTORE TABLE 




U2» 


0Z3E 


FOK 1«1 TO 12 




1637 


«23E 


REAB Rl,CI,1II:L0CATE RI,n:PRINT CHRKKt); 




166A 


0244 


1CXT I 


45 


1685 


«244 




1683 


0244 


'priat three headin9s and instructioftt 




168S 


0244 


COLOR 10,0 




1691 


0244 


LOCATE 4,7:PRIHT 'DROP PARARHERS*; 




t6AI 


0244 


LOCATE 4,39!PRINT 'REABENT PARAIIETERS' 




16CS 


0244 


LOCATE 4,7l:PfiUT 'CCftnANDS'; 


50 


UDF 


0244 




UDF 


02M 


COLOR TtLOCATE 21,:0:PRl«T 'Use 'pCOLOR 15:PR1NT CHR$t27);CHRI(J2)jOiRS(26J} 




1729 


0244 


PRINT CHRli32);CHR$(24);CHRJ(3:);CHRI(25);:CCL0R 7:PRINT • to position highlighted cursor*; 




176B 


0244 


LOCATE 22,I8:PRIHT 'Use •;:C010R 15;PRUT •♦•;!COLOR 7:PRIKI • or ■;:COLOR i5:PRIMT 




17BE 


0244 


COLOR 7:FR1HT* to scroll current value up cr dOKn*| 




'71)2 


0244 


LOCATE 23,26:PRINT -Use 'j:CDLOR IS:PRIMT 'Oy;:COLDR 7!PRINT' to activate selection*; 


55 


1B14 


0244 
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70 



75 



20 



Rt^^l Jet Printr 
Riigtflt Calibrition 





DHtit 




Source Lint 


25 










IBM 


0244 


DIS?. PARKS: 




lei? 


0244 


'displ«^ le Acnu choices in yellM 




1819 


0244 






Ul? 


0244 


COLOR 14,0 




1825 


0244 


FDR nmi « 0 TO 17 


30 


1829 


0244 


605UB DlSPItENU 




1831 


0244 


KEXT nDtUI 




1841 


0244 






1841 


0244 


'set lor reaocfit niie «nd highlight it 




1841 


0244 


REKUX «.6:COL0R 0,7 




1854 


0244 


60SUB DISPnEKU 


35 


185A 


0244 






IBSft 


0244 


SCREDt 0,0,0,0 




le^F 


0244 


RETURN 




1873 


0244 


REn SPA6E 



P«E 9 

07-14-96 
12t26t57 
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Rezqnt Jit Printir Pft8£ 10 

RiiQMi Calibraicfl 07-U-ai 

Off sit Oata Soyfce lint Ptrsonil Coipnttr BASIC Coipilfr V2.00 



IS73 


5244 




1B78 


0244 


LOCATE (flESUXMD 6)«247, llHT{n£HUZ/61«2B+2)+l5f INT(REWJX/«J 


1604 


0244 


PRIKT nENUStnEKUIfO) 


^ 1BF2 


0244 


IF m\Sl ) 5 THEN 60TO 5H0KSTR1N6:' no v«lue to diipUy 


1901 


0244 


LOCATE (HENUZ KOO 6)»2*7,«ENU(HENUI,4) 


1933 


0244 


f-fiIXT USIN6 nEHUI(HEKUI,l);nENU(RENUl,OI; 


\Ui 


0244 


IF rmi > 2 THEN RETURN 


1975 


0244 


W HENUin 80SU8 SET.FRED, SET.AKP, Sn.0£UIY 


19B& 


0244 


RETURN 


on 198A 

20 

19BF 


0244 


SCiSTRlHBs 


0244 


IF HENUX > 10 THEN RETURN 


195E 


0244 


LOCATE (RENUX ROD 6)t2>7,48 


196A 


0244 


PRINT • 


19C7 


0244 


LOCATE (REHUX ROD 6)»2i7,48 


19E3 


0244 


PRINT HENUKRENUXJ) 


oc IA02 

25 * 


0244 


RETURN 


1A06 


0244 




iAO<» 


0244 


Sn.FREO: 


lAOB 


02M 


TERP * HENU(0,0) 


iA24 


0244 


CAU SET,OOT.RATE(TERP): 'ifl MduU PCI 


1A34 


0244 


LEW » 3-IHTtlTERP*500)/I000) 


30 IA57 


0246 


IF LEDX < 0 THEN LEDX * 0 


1A&9 


024& 


SCRX » 4 ♦ (LEDX • 32): 'set LED intwiity 


iA89 


024i 


CALL DIGITAL.OUT(SCRX)t 'in todult PCI 


IA99 


0246 


RETURN 


1A9D 


0246 




1A9D 


02U 


SET.ARP: 


35 1AA2 


0246 


SCRX ' ClNT{RENUtRENU:,3} » III / ISO): 'convirt volts to binary nui&er 


lACB 


0246 


IF SCRX « OLD. ARP. value: TH£H RETURN 


lAOC 


024ft 


TEHPX = SCRX - OLD,ARP.v;LuEX: 'calculate dtlta 


lAEB 


0248 


XD.ARP.VALUEX : SCRX: 'update old value to current value 


IA£F 


0243 


DI6.VALI * 6 


1AF& 


024A 


IF TERPX < 0 THEN DIB.VALX ^ 5 


40 IB09 


024A 


TERPX « ABSITERPXI 


1615 


024A 


FOR IX « I TO TERPX 


1B22 


024C 


SCRX - DIG.VALX « (32ILE0X) 


IB3F 


024C 


CALL OISITAL.DUTCSCRX): 'p«lse higher or lover 


184F 


024C 


SCRX » 4 ♦ (32 4 LEDX) 


1B6F 


024C 


CAU DlGlTAL.QUTtSCRX)t 'sit port to imtmI 


^5 1I7F 


024C 


ICXT IX 


1891 


024C 


RETURN 


1B9S 


024C 




1695 


024C 


SET.OEUT: 


169A 


024C 


TERP « RENU(2,0) 


1B66 


024C 


CAU 5ET.STR0B£.D£LAY(TERP)i 'in todule PCI 




024C 


RETURN 


IBCA 


024C 




16CA 


024C 


RER JPA$E 



55 
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Rtagint 3it Printir ''WE 11 

Oflsit Da» Sourci Uni Ptrsonil Cotputer BASIC CoipiUr V2.00 





IBCA 


024C 


'tiUfMMiu DATA USED BY THIS HODULE 4il«H»iHf 




IBCA 


024C 




75 


IBCA 


024C 


ARRDATA: 


(ECf 


024C 


DATA 'Friqutncy Hi'/«,IIIM00OO,I,M6 




IBOl 


024C 


DATA 'Aiplitud* V 'Iff, 130,0,1, 19 




IB03 


024C 


DATA •Strode 0*Uy uS%'ll,:i*,l', J5999.5,.5,.5,U 




tBDS 


024C 


DATA 'Pulsi Hidth •,'Hr ,999,0,1, 19 




1BD7 


D24C 


DATA 'Risf Ti« •,'lir,999,0,l,l9 


20 


1BD9 


024C 


DATA 'FiU Till •,M«f,999,0,l,l? 




18DB 


024C 


DATA ",0,0,0,0 




IBOD 


024C 


DATA •Co(icintration*,'*,0,0,0,0 




IBDF 


024C 


DATA •Dinsity',", 0,0,0,0 




IBEl 


024C 


DATA •Viscosity", ",0,0,0,0 




16£3 


024C 


DATA 'SurUce Tension*, '•,0,0, 0,0 


25 


IBES 


024C 


DATA ",",0,0,0,0 




1BE7 


024C 


DATA 'START*, ",0,0, 0,0 




IBE9 


024C 


DATA •LOftD*, ",0,0,0,0 




IBEB 


024C 


DATA 'SAVE*, ",0,0, 0,0 




IBED 


024C 


DATA •EIIT',",0,0,0,0 




IBEF 


024C 


DATA ",",0,0.0,0 


30 


IBFl 


024C 


DATA ",",0,0,0,0 




IBF3 


024C 






IBF3 


024C 


TABLE: 




IBFB 


024C 


DATA 3,t,21B 




IBFA 


024C 


DATA 3,28,210 




IBFC 


024C 


DATA 3,&9,210 


35 


IBFE 


024C 


DATA 3,80,191 




tcoo 


024C 


DATA 5,1,198 




IC02 


024C 


DATA 5,28,206 




IC04 


024C 


DATA 5,69,206 




1C06 


024C 


DATA 5,80,181 




ICOB 


024C 


DATA 19,1,192 


40 


iCOA 


024C 


DATA 19,28,208 




ICOC 


024C 


DATA 19,69,208 




ICQE 


024C 


DATA 19,80,217 




ICIO 


024C 






ICIO 


024C 


EMD SUB 


45 


1C17 


024C 




IC17 


024C 






23EB- 


024C 





50426 Bytes AvaiUblt 
43960 Bytes Free 

0 Naming Erroris) 
0 Severe Error (s) 
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Reagent Jet Printer 
Pattern Entry/hDdification 



PftSE 1 
07-05-B6 
10:46:13 



UT T acl 


WAV* 


Source Line 


IBS Personal Coiputer BASIC Conpiler V2.00 




VWwO 


REn $TITLE:'Reacent Jet Printer* $SUBTITLEi 'Pattern Entry/Kodif 






ication' 






AAAi 
OUU& 


'nODIILE - 'PATENT" Pattern creation, lodi^ication, and filing 


0030 


000& 






0030 


OOOi 


'Ain/iCR - N. A. Enevold 


003C 


0006 






0030 


0006 


TDPVaiBKI (C) 1985 fiBBOH LABORATORIES 


0030 


0006 






0030 


A A A 1 

0006 


'RPASIOH - 1.2 03-10-86 NAE Reiove Mouse inputs 


0030 


AAA£ 

00Q6 


1.1 02-20-86 NfiE Add 80 pattern liiit to save 


ftftTft 

OUoO 




1.0 01-13-96 HAE Creation of initial code 


UUOv 










WvO 


'SYSTEM - This code can only be coapiled by the BASCOH 




AAAI 


COnPlLER, 


it Hill not run. under the INTERPRETER!! 


UUoU 


vvUo 






0030 


OOOo 


•DESCRIPTIDN: 




0030 


AAA£. 

vvOo 


This lodule allows the user to LOAD, SAVE, DlRectory, D 






m and 




0030 


AAAl 

0006 


enter repeat count and other parateters for a pattern t 






0 be printed. 




OOjO 




The loN-resolution graphics iode is selected and a lenu 






is displayed 




0030 


AAAL 

0006 


across the bottoi of the screen. Using arrov keys 


0030 


0006 


point to the action to be taken and then invoke that ac 






tion Hitb the 




rtftTA 
UUjU 


wvo 


Enter key. In the DRAW node, another lenu is 


OOoO 


AAAL 


displayed nhich allotis the user to select froi LINE, RE 






dangle, 




0030 




Solid RECTangle, or CIRCLe pattern eleients. 


0030 


000& 






A ATA 

0030 


AAAL 

0006 


•DATA DICTIONARY 




A ATA 


AAAl 


SCNDATI(50,5) 


51 Ron (Eleients) by 6 Colutn array f 






or storing pattern eleients 


0030 


vGw6 


CURSDRI(91 


Storage for cursor graphics icon 


0049 


AAAL 
VVVO 


nEHU$(6) 


Up to 7 ienu naees can be saved here 


AA^A 


AAAL 


ELNUnX 


Count of nuiber of eleients in a patt 


0030 


000& 


eri 

II Yl 


Current location of graphics cursor 


0039 


OOOo 


KID 


Value of one dot space on the screen 






(default is 0.005M 




00 


0v96 


mi coLi 


Location to print instructions 


0030 


0006 




Storage for single key-strokes or inp 






at strings 




0030 


AAAL 

0Uv6 


liEHum 


tfhich lenu is being displayed (1 or 2 


0030 


0006 


im 


Pointer to «hich lenu itei is highlig 






hted (0 - 6) 




0030 


0006 


REPEAT! 


Nuiber of tiies pattern is to be repe 






ated Mhen printed 




0030 


0006 


XOFF YOFF 


X and Y axis distance betneen the pri 






nting of repeated patterns 


0030 


0006 


ROWSP CDLSP 


Ron and Coluin spacing for printing ■ 



ultiple sets of patterns 
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Reagent Jet Printer PAGE 2 

Pattern Litrv^rtodif ication 07-05-8i 

10:46:13 



OHset 


DaU 


Source Line I6I1 Personal Cotputer BASIC Coipiler V2.00 


0030 


CCO& 


PATNU«I , Nuiber patterns stored in 






the pattern directory PATDIR.RJP 


0030 


0006 


DROUl DCQLI Rom and Coluin location to display di 






rectory entrys 


0030 


000& 


NAnEI Pattern naii to be LOADed or SAVEd to 






directory 


0030 


000& 


11 n Counters used to LOAD or SAVE the ele 






lent data froi/to pattern data file 


0030 


000& 


FILE» Naie of pattern data file 


0030 


0006 


TEMPI Which type of eleient is being draifn. 






! < Line 2 = Rectangle 


0030 


0006 








3 ' Solid Rectangle 4 > Circle 


0030 


0006 


FLABl Saee as TENPI above 


0030 


0006 


STARTHSG( ENDMSSt Message display for startpoint and en 






dpoint of eleient entry 


0030 


0006 


nX YIX Starting cursor position for 






eleient being drawn 


0030 


0006 


DIX DYX Delta 2 and ¥ values used to 






re-position cursor after arroi key 


0030 


0006 


RAHTEH The highest nuibcr itei in th 






e current lenu display 


0030 


0006 


IS IE Starting and ending I position of the 






lenu highlighting blue box 


0030 


0006 


RADIUS! The calculated radius of .a ci 






rde to be displayed 


0030 


0006 


REH IPASE 
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0030 


0006 


SUB PATENTRY STATIC 




0047 


0006 






0047 


0006 


UIDTH 40:SCREEK hCLS 


75 


005F 


0006 


Din SCKDftTZ(50,5) ,CURSDRI(9) ,«ENUf (6) 




0060 


029A 


ELNUnX = 0:n=OiYX=0:BRID = 0,005 




007F 


02A4 






007F 


02A4 


LIKE (0,0)-(6,6],,B 




ODAl 


02A4 


LINE (0,3I-(6,3),,B 


20 


O0C5 


02A4 


LINE (3,0)-(3,6),,B 




O0E9 


02A4 


PRESET (3,3) 




OOFS 


02A4 


GET (0,0}*(6, 6), CURSOR! 




0116 


02A4 


CLS 




OllD 


02A4 




25 


OlID 


02A4 


LINE (0,0)-(319,1901,,B 




OKC 


C2A4 






0140 


02A4 


RESTORE INSTRUC 




0147 


02A4 


FOR 1=1 TO 4 




0151 


02A4 


READ ROUI,COLI,A$ 


30 


0164 


02AC 


LOCATE ROMZ^CDLl: PRINT A*; 




0180 


02AC 


NEIT I 




019B 


02B0 






0196 


02B0 


FIRST: 




OlAO 


02B0 


KEKUNUn * 1 


35 


OlAA 


02B4 


60SUB SUBKENU 




OIBO 


02B4 






OIBD 


02B4 


ON ITEn ♦ 1 60T0 PATOIR, PATLOAD, PATSAVE, PATDRAH, 








EAT, PATEXT 




OICO 


02BB 


SOTO FIRST 


40 


OlDO 


0268 






OlDO 


0268 


REPEAT: 




0105 


02B8 


BOSUB ITEKBOIERASE: 'erase blue box around DIR 




OlDB 


0268 


LOCATE 25,1:PR1NT 5PACEit39I; 'erase tenu line 




01F8 


02B8 


LOCATE 25,1: INPUT; •Enter Repeat Count REPEAT! 


45 


021B 


02BA 


LOCATE 25,1:PRINT £rfiCES(39); 'erase lenu line 




0235 


02BA 


LOCATE 25,l:IKPUTi'Enter I Axis OHset •,10FF 




0255 


02BE 


LOCATE 25,liPRINT cpAC£jt39); 'erase tenu line 




0272 


02BE 


LOCATE 25,l:INPUT;'EntEr Y Axis Oh'set '.YOFF 




0292 


02C2 


SOTO FIRST 


50 


0296 


02C2 


PATEIT: 




029E 


02C2 


HIDTK SO:SCREEN 0:CLS 




02B2 


02C2 


EXIT SUB 




02B6 


02C2 


REn IPABE 



55 
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Reagent Jet Printer PAGE 4 
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^o 10:46:13 

Offset Data Source Line IB« Personal Ccaputer BASIC Cocpiler V2.00 

02B6 02C2 PATDIR; 'list directory of patterns 

02BB 02C2 oDSliB ITEItEOIERASE: 'erase blue box around DIR 

^5 02C1 02C2 LOCATE :5,1:PRINT SPACE$(39); 'erase lenu line 

02DE 02C2 OPEN 'PATDIR. RJP" FOR INPUT AS 11; "open directory 

file 

02EF 02C2 INPUT tl, PATMUttXj 'read nufiber of patterns in dir 

ectory 

20 0301 02C4 LINE (1,1)-(31B,1B91,0,BF: 'erase graphics tablet 

032& 02C4 I = 0: 'set counter 

0330 02C4 

0330 02C4 DISLDDP: 

0335 02C4 1=1+1: 'set for next value 

25 0344 02C4 IF I > PATNUItX THEN SOTO DIREIIT: 'test for done 

035B 02C4 IF lNTl(M)/44) <> tI-n/44 THEN GOTO BHOWNEH 

C3B4 02C4 IF INT((I-ll/44) < I THEN GOTO SHOWNEXT 

03A9 02C4 

03A9 02C4 LOCATE 25,1:PRINT 'More to Display. Continue ? (Y or N) 

30 'j 

03C3 02C4 BOSUB CORLOOP: 'wait for Y or H response 

03C9 02C4 IF At = 'N" THEN GOTO DIREXIT: 'if N then don't contin 

ue 

03DC 02C4 

35 03DC 02C4 LINE (1,1)-(31B, 1891,0, BF: 'erase graphics tablet 

0401 02C4 

0401 02C4 . SHOWNEH: 

0406 02C4 DRO«I » ((I - 1) m 11) + 2: 'calculate row for disp 

lay 

40 0422 02C6 DCOLI » 4: 'set coluin to 4 

0429 02CB IF ((I - 1) HOD 44) > 21 THEN DCOLI = 23: 'reset colutn 

if necessary 

044C 02CB 

044C 02C8 LINE INPUT II, Al; 'read next naie froa directory 

45 0459 02CB LOCATE DROWI,DCOLI;PRINT Afj 'PRINT NAME 

0475 02C8 GOTO DISLOOP 

0479 02C8 

0479 02C8 DIREIIT: 

047E 02C9 CLOSE tl: 'teriinate access to PATDIR.RJP 

so 0485 02C8 GOTO FIRST 

0489 02CB 

04B9 02CB RE« IPAGE 



55 
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10:46:13 

Offset Data Scarce Line IBH Personal Coiputer BASIC Cospiler V2.00 

0489 0:C2 PhTLiLAD: 

048E OICa SOSwE ]TEn£0;(ERASE: 'erase blue box around DIR 

0494 02CB QPEK 'PATDIR.RJP* FOR INPUT AS II 

0AA5 OzCS InPtlT S1,PATNU«Z: 'read nuaber of patterns in dir 

0AB7 02i:S SOSUB SETNAME: *proipt for and input pattern n 

ue 

. 04BD 02C3 LIKE (1,11-(318,189) ,0,BF: 'erase graphics tablet 

04E2 02C3 

04E2 02l8 GCSUB SEARCH 

04EB 02C3 

04E3 02CB IF II < (PATNUKI + I) THEN SOTO FOUND 

04FC 02CA LOCATE 10,li-(LEH(NAf1E$) /2) iPRINT NAW;' not Found*; 

0531 02CE LOCATE 12,14:PRINT •Strike Any Key' 

054B 02CE 6DSUB ANYKEY: 'wait for a keyhit 

0551 02CE eOTQ FIRST 

0555 02K 

0555 02CE FOUND: 

055A 02CE FILEI = RI6HT« (STRI (II) ,LEH(STR*(III)-U + 'PAT.RJP' 

057E 02D2 OPEN FILEI FOR INPUT AS II: 'set pattern data file 

for read 

05BF 02D2 INPUT ll,ELNUKI: 'read nuiber of eleients in pat 

tern 

05A1 02D2 INPUT I^SRID: 'read grid size 

05B3 02D2 INPUT ll,REPEATI: 'read repeat count 

05C5 02D2 INPUT ll,IOFFt 'read x axis offset for repeat 

0507 02D2 INPUT ll,YOFF: 'read y ans offset for repeat 

05E9 02D2 

05E9 02M FOR II = 0 TO ELKL;«: - I 

05F7 02D4 FOR JI = 0 TO 5 

05FD 02D4 INPUT ^ECnZATKImjI) : 'read file into screen 

array 

0621 02D6 NEXT JI 

0631 02D6 NEH II 

0643 02D& CLOSE II: 'done «ith data file 

064A '02D6 

064A 02D6 OPEN 'PATDEF.fiJP' FOR OUTPUT AS II 

065L 021^ PRINT fi, FILEI: 'save filenase in defau 

It file 

066C 02D6 PRINT II.NAnEI: 'save the directory naa 

e as Hell 
067C 0206 CLOSE II 

06B3 02D6 

06B3 02D& 60T0 REDRAH 

0687 02D6 

06B7 021th SEARCH: 

06BC 02D6 11 = li 'set entry pointer 

0693 02D6 5LDDP: 

069B 02W LIKE INPUT II, A$: 'read next pattern naie froi di 

r 

06A5 02D6 IF A$ = NA11EI THEN SOTO SEARCH.ENO: 'coapare nate m 

ith dir entry 
0668 0206 II = II ♦ 1 

06C1 02D6 • IF II < (PATHUni + I) THEN SOTO SLQCP: 'check for done 
0604 02D6 SEARCH.END: 
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10:46;13 

Offsei Data Source Line 11^ Personal CoBouter BASIC CotDiler V2.00 

06D9 02Di CLOSE II: 'not found so dose lile and display le 

ssage 

06E0 Om fcETURN 
06E4 02D6 

06E4 02C6 m SFRSE 
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10:46:13 

OHset Data Source Line 1311 Personal Coaputer BASIC Coepiler V2.00 

FATSAVE: 

GGSUB ITEflEOIERftSE: 'erase blue box around DIR 
IF ELNU?11 = 0 THEN SOTO FIRST: 'no eleaents in pattern 
OPEN •PATDIR.RJF* FOR INPUT AS II 
INPUT tl,PATNU«I 

IF PATNUni < 30 THEN GOTO SAVEJAT: 'directory ^ull 
at 80 patterns 
CLOSE II 

LOCATE 25,1;PRIHT SPACE$(39);: 'erase bottoi I 

ine 

LOCATE 25,1:PR1NT •Directory is full (BO patterns lax)' 

BOSUB ANYKEY:GOTO FIRST 
SAVE. PAT; 

BOSUB GETNAHE: 'proipt for and get pattern naie 
BOSUB SEARCH 

IF II > PATNUnZ THEN GOTO ADD. NEW. PATTERN 
LINE (1,11-(31B,1891,0,BF: 'erase graphics tablet 
LOCATE lO,13-(LEH{KHn£$)/21:PRIHT NA«E$j' already exist 

LOCATE 12,15;PRINT 'Replace it?' 
PATNUni ' IX 
Al « " 

mil A$ = 

Al = INKEYI 

VEND 

IF AS = OR AS = 'y" THEN SOTO SAVE. PATTERN 
BDTD FIRST 

ADD. NEW. PATTERN: 

KILL •PATDIR.GLDV "delete old backup directory 
NAUE 'PATDIR.RJP* AS •PATDIR.DLD': 'save old direc 

tory 

OPEN 'PATDIR.OLD' FCR INPUT AS II 
OPEN 'PATuiR.Rj?' FCR OUTPUT AS 12: 'set up ne»i dir 
INPUT ll,PATKuni: 'read nuaber of dir entries 
PATNUni = FATNUn: + 1: 'increase by I 
URITE I2,PATNUH1: 'save in neN directory 

FDR 1=1 TO PATHUni - 1 

LINE INPUT II, Al: 'read entry froB old dir 
PRINT 12, Al: 'urite entry in n&M directory 

NEIT I 

PRINT l2,NAnES! 'iirite new entry to new directo 

ry 

CLOSE ll:CLOS£ 12: 'done mth directory 
SAVE.PATTERN: 

FILEI = ftIBHT$iSTR$lPATm),LENtSTRI(PATNUHll)-l) ♦ 'P 

AT.RJP' 

OPEN FILE! FOR OUTPUT A3 II: 'create new pattern dat 

a file 

lilRITE ll,ELNUni: 'store nuiber of eleients 

WRITE II, GRID: 'store grid diaension 

'jniTE 51 ^REPEAT': 'store repeat count 

WRITE ll,XOFF: 'store x axis offset for repeat 

34 



06E4 


02D6 


06E9 


02D6 


06EF 


02D6 


06FE 


02D6 


070F 


02D6 


0721 


02D6 


0730 


02D6 


0737 


02D6 


0754 


02D6 


07iE 


02D6 


077B 


02D6 


077D 


02D6 


07B3 


02D6 


07B9 


02D6 


079ft 


02D6 


07BF 


0206 


07F4 


02D6 


OBOE 


D2D6 


vDl J 




OBIF 


02D& 


082E 


02D& 


0838 


02D6 


0B3B 


02D& 


0864 


02D& 


0868 


02D& 


0B68 


020& 


0B6D 


02D6 


0874 


02D& 


0B7E 


02Di 


OBBF 


02D& 


08A1 


02D& 


08B3 


02D& 


08BC 


02D& 


OBCD 


02D& 


08E6 


02DA 


08F3 


02DA 


0903 


02DA 


091E 


02DA 


092E 


020A 


093C 


02DA 


0941 


020A 


0965 


02DA 


0977 


020A 


0988 


02DA 


0998 


02DA 


09A9 


02DA 
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CISa i.^ITE IKYCFF: 'store y axis oHset tor repeat 

02yA FDR II = 0 TO ELfi'JKI - I 

09D7 02DC FQJ^ JI = 0 TO 5 

05DD 02:C JiRlTE ll,SCNDATI(II,Jl): 'Mrite screen a 

rray to file 

oAoo out 31 

OAIO OltC NEIT II 

0A22 02BC aoSEil: /done with ^ata file 

0A29 C2$C OPEK •PAIDIF.RJP" FOR OUTPUT AS II 

0A3B 02DC PaiKT I1,F1LEI; 'save filenate in defau 

It iilB 

0A4B PRIHT ll^SAWEI: 'save the directory na« 

e 15 Mel I 
0A5B 02DC CLOSE II 

0Ai2 02DC BOTO FIRST 

0A66 02DC RE« IPABE 
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iO:46:l3 
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0A6B 02DC SCS'JE ITEr^ClEFAEE 

0A71 02I'C LIKE (1 ,l)-t3i3 ,0,BF: 'Erase grapnics tablet 

0fi9S 02DC 

02r: xEira: 

0A9B 02i)C .nrsuHun = 2 

0AA5 02K ECSiJB SU£*£KU 

OAAB 02DC 

OAhB 02D: cm ITErt ♦ 1 EDTQ ALINE, RECT, SRECT, ACIRCLE, REDRAW, B 

OfiCB 022: 8073 KEXTEL 

OACB 02DI: 

OACB 02I1C BACKUP: 

OADO 02DC GOSUB ITE«BOIERASE 

0AD6 02IH: 60TO FIRST 

OADA 02DC 

OADA 02DC ALIKE: 

OADF 02DC . TEHPl = 1 

0AE6 02SE STARTWSSJ = 'START IHB EHDPOIKT' 

OAFO 02E2 ENO^SG$ = •ENDING ENDPOINT * 

OAFA 02E& BOTO EKTERELEf*ENT 

OAFE G2Ei 

OAFE 02E6 RECT: 

0B03 02E6 TEPiPX = 2 

OBOA 02Ed GOTO RECTrtSB 

OBOE 02E£> 

OBC-E 02E6 SrtECT: 

0B13 OIEi TEftPl = 3 

OBIA 02E6 F:ECTK3B: 

OBiF 02E& STARinSBJ = 'STARTING CCRNER* 

0B29 02E6 Eh'C.-SSt = •EHOING CGRNER ' 

0B33 02£i BQTO ENTERELE«ENT 

0B37 02Ei 

0B37 ^7th ACIRaE: 

0B3C c:e& TEnPl = 4 

0B43 02E6 STAn*T«£Ei = 'CENTER OF CIRCLE' 

Om 02E& DCHSB* = 'POINT C.V CIRCLE ' 

0B57 02E6 

0E57 02E& £>iTERtLEKE>iT: 

0B5C 02Ei B05UB ITEnBOXERASE 

OBW 02Efc aASl=0 

mn 02EB LOCATE 25,1: PRINT 5PACEf[39); 

0B86 02EB LOCATE 25,1:PRIKT 5TARTRS5S; 

OBAO 02EB BOSUB 0I5PCURSOR 

OUL 02E8 FINDSTART: 

OBAB 02E8 6Q5UB KCUSEACT 

OBBl 02£a IF Al = CHRI{27) THEN SOTO ABORT 

0BC8 02EB IF AJ = CHR$(!3) THEN BOTO SETSTART 

OBCr 02ES 60SUB CURSORKOVE 

0BE5 02E9 BOTO FINDSTART 

OBES D2E3 ABORT: 

OBED 02E8 60SUB FLACECUR50R 

0BF3 02EB BOTO HEXTEL 

0BF7 02E8 
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Pattern Entry/Hodif ication 07-05-S6 

I0:4i:13 



75 


Offset 


Ddta 


source Lir.e lEN Fersanil Co»putEr BASIC Coopil 




0BF7 


02ES 


EETSTART: 




OBFC 


OZEB 


LC:aTE :5.1:FR1NT £HD!1SS$; 




0C16 


02EB 


F'.;,B1 = TEHPl:ni = XliUl = YI 


20 


0C2B 


02EC 


IF FLAS: • 4 THEN PSET (n+4,Yl+41 




0C55 


02EC 


FINDENO: 




0C5A 


02EC 


EuSUB r.OUSEACT 




OCiO 


02EC 


IF At = CHRI(27) THEN BCTO CASCELEL 




0C77 


02EC 


IF A$ = CHRJ(13) THEN SOTO SAVEEL 


25 


0C8E 


02EC 


60SUB CURSCRROVE 




0C94 


02EC 


GOTO FINDEND 




0C97 


02EC 


CfiNCELEL: 




0C9C 


02EC 


SOSUB PLACECURSOR 




0CA2 


02EC 


ON FLA6X 60SUB ERl, ER2, ER3, ERA 


30 


0CB3 


02EC 


FLASI = 0 




0C5A 


02EC 


GOTO NEHEL 




0C6E 


02EC 


SAVEEL: 




0CC3 


02EC 


60SUB PLACECURSOR 




0CC9 


02EC 


IF FLABX = 4 THEN CIRCLE (111+4, Y11+4I,SQR1 (II 


35 






Y1-Y1I)*21,,,,1 




0032 


02EC 


605UB CORRECT 




0D38 


02EC 


IF A»»'H* THEN SOTO REIRAH 




0C4B 


02EC 


STOREEL: 




0D50 


02EC 


scndat:(Elwuk,o) = flabi 


40 


0D6A 


02EC 


SCHDATZ(ELNUnZ,t) - III 




0DB5 


02EC 


SCMDATI(ELNUNX,2) = Yll 




ODAO 


02EC 


SCh:ATZ(ELNUN:,3) = II 




0DB6 


02EC 


SCNDATZ(ELNUNX,4) ' n 




ODD& 


02EC 


S:KDATi(ELKU«,5) - 0 


45 


ODEF 


02EC 


ELNURl = ELNU«l ♦ 1 




0DF8 


02EC 


FLABI = 0 




ODFF 


02EC 


60T0 NEITEL 




0E03 


02EC 


R£« tPAGE 



50 
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0E03 


02EC 


REDRnli: 


OE08 


C2EC 


5GSuB ITEMS-QXERASE 


OEOE 


02EC 


LlNE(l,l)-(3ia,ie9},0,BF 


0E33 


02EC 


IF imv. = 0 THEN GOTO NEITEL 


0EA2 


02EC 




mi 


02EC 


FOR 1=0 TO ELNUftM 


CESB 


02F0 


ON SCNDATIII^O) GQSUB RDl, RD2, RD3, R04 


0E81 


02FO 


NEXT I 


0E9C 


02F0 


SOTO NEITEL 


OEAO 


02F0 




OEAO 


02F0 


Sub-routines called by lain lodule 


OEAO 


02F0 




OEAO 


02F0 


SUErtENU: 


OEAS 


02F0 




0EA5 


D2F0 


LOCATE 25,]:PRINT SPACEi(391; 


CEC2 


02F0 


ON ilENUNUn 60SUB HENUI, nENU2 


OEDl 


02F0 




OEDl 


02F0 


FOR 1=0 TO h 


OEOB 


02F0 


READ ttENUSdl 


0EF2 


02F0 


LOCATE 25,tIi6)+2:PRlHT KENUKD: 


0F2B 


02FC 


NEXT I 


0F46 


02F0 




0F4& 


02F0 


READ HAXITEn 


0F4D 


02F4 


ITEn = 0 


0FS7 


02F4 




0F57 


02F4 


HEMITEH: 


0F5C 


02F4 


GOSUB HEi(ITE?lBOX 


0F62 


02F4 




0Fi2 


02F4 


NEXTITEH: 


0F67 


02F4 


B05UB ITEr.SEARCH 


0F6D' 


02F4 


IF A$ = CKRS(131 TrEN RETURN:" ITE« has correct 


0F64 


02F4 


IF LEHIAJI < 2 THEN BEEPrGOTO NEXTITEH 


0F9A 


02F4 


IF ASCiRIDJiA^Z,!)) ^ 75 THEN GOTO LEFTAR 


0FB6 


02F4 


IF ASCifllDf(Af,2,l)J = 77 THEN SOTO RISHTAR 


0F02 


02F4 


BEEP:BOTD NEXTITEH 


0FD9 


02F4 




0FD9 


02F4 


LEFTAR: 


OFOE 


02F4 


IF ITEn = 0 THEN GOTO NEXTITEft 


OFEE 


02F4 


505UB ITEKBOXERASE 


0FF4 


02F4 


ITEH = ITEH - I 


1003 


02F4 


GOTO NEVITEH 


1007 


02F4 




1007 


02F4 


RIGHTAR: 


lOOC 


02F4 


IF ITEH = HAXITEH THEN EOTO NEXTITEH 


lOlF 


02F4 


GOSliB ITEH&OXERASE 


1025 


02F4 


ITEH = ITEH + I 


1034 


02F4 


GOTO NEWITEH 


1038 


02F4 




1038 


02F4 


HENUI: 


1030 


02F4 


RESTORE m 


1044 


02F4 


RETURN 


1048 


02F4 




1048 


02F4 


HENU2: 


104D 


02F4 


RESTORE HN2 
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1054 


02.'^ 


RETURN 


1058 


02F4 




JO 






L V J U 




At 2 IKI^'FYJ'TF At O TWFM RFTIIRW 


Iv 1 n 




ftHTn ITPHt^CAPPH 
DUtU lILltwlnnUn 


\ ri7B 

ivfv 


vxr ^ 




1 npt 


ft7ri 




LvOi 


n7ri 


LTUTTrXtint* 


1 vOO 




i3 " 111 cn"io / ▼ / 




A7rp 






07rr 


Line \A^fi7i/ lAtfI7Tlfi|D 


1101 


02FC 


RETURM 


1105 


02FC 




1105 


02FC 




ilOA 


02FC 

VAT b 


LIMF (!S 191)-{1F 1991 0 B 

Lint lAdfiJi/ \Atfl71'fUfO 


1131 


02FC 

VAT U 




1 1 0 J 


ft7Fr 




I i U J 




PI flPFPIIRQflR* 




07rc 


PUT YT+n PIIR^rRl 


1 i J/ 


07Fr 


RFTIIRN 


1 1 Jo 


07FC 




I i JO 


07FP 


KnilCFAPT* 


1 1 

1 iOV 


A7FP 


DU3U0 HnihCl 


liOO 


n7rr 


nY7 - A • nvT X A 






TF At = PHRftA^ + PyRlf77^ THFH AY? = -l»flFTIlflW 


1 1 on 




TF fit - ruPtfA) 4' rriPtrfiAl TWFW ay? - l*PFTItPN 


t IPA 




IF At = THPttA) ♦ rHftlt771 TmFJ* BIT = I'PFTUhM 


L 1 Lr 


V JW 


TF At = rHR't(O) ♦ Lpnt(75) THFN DII = -I'ftFTURN 




03afi 


TF At = 'R' THFN RYT s -?0«RFTUPN 




WwWU 


TF fit = ■7' THFN nYT = 7A*RFTURM 






ir H» - H 1 ntn l/Ajk - Xv*nLluAn 






TF fit - *k* TMFV AY* - 7A»RFTIIRU 






TF fit - PURtnTl TUFU DFTllPN 






tr fi* - ruDtMTl TUCU DCTItDM 

lr Hf * Lnh«n<ji Incn KtlUMl 






CATA MAIierAPT 




ftlftA 










1901 




mJbUo rLALcLunDUn 


IZOU 


fiTAft 
v<>Uv 


nu Cl ACT CACtIO C01 CO*) TDl 

UN rLHbX bUbUo cKlf cnx^ tKo, tn^ 


17PF 




IZ - Al ♦ ulh ; iX = iX ♦ DTX 


i9CJL 


ATM 


lr aX < 0 iHtN aX = 0 


I9FR 




ir A& / oLl iribn aX * oil 






TF Vt ^ A TUFM VT - A * 


iolU 




IF YT \ 1Q7 TUCtJ V7 - 109 
lr }k / loi intH TX * lOx 




0300 


ON FLAST fiDSUB DRt nP7 ITP3 ARi 

vn ri^noh DUaUO UAl| UnXf uAJf UAt 


1341 


0300 


£CS1!B CISPCURSOR 


1347 


0300 


RETURK 


1348 


0300 




134B 


0300 


CORRECT: 


1350 


0300 


LOCATE 25,l:fRINT SPACEJfS?); 


13&D 


0300 


LOCATE :5,1:PRIKT MS THIS CORRECT? (Y or M) '] 


1387 


0300 


CCRLOOP! 


138C 


0300 


eOSuB AHYKEY 


1392 


0300 


IF M - 'y' OR A> » 'Y* THEN A» = ■Y':60T0 COREXIT 
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Reaqent 


Jet Printer 




Pattern 


Entryynoaification 07-05-86 
' 10:46il3 


Offset 


Data 


Source Line 15^ Personal Cofiouter BfiSIC Cotoiler V2.00 


l3Cj 






IF {,f = 'n* GR St = 'N' THEN Al = "N'lSCTQ CDREXIT 


13F8 


0300 




GOTO COSLQOP 


13FB 


0300 


CGREIIT: 


1400 


0300 




LOCaTE 25,1: PRINT SPACE* (391; 


lUD 


0300 




RETURN 


U21 


0500 






1421 


0300 


DISPCURSOR: 


1426 


0300 




60SU6 PLACECURSQR 


142C 


0300 




LOCATE 25,:7tFRINT US1K8 'tLnriXI » 3RID; 


1456 


0300 




PRINT 


1463 


0300 




PRINT USINB •+t.||f;Yl » 6RID; 


14BC 


0300 




RETURN 


1484 








14B4 


0300 






1484 


0300 


RDl: 


LINE (SCSDATI (1,1) +4 .SCHDATl (I ,21 +4)- (SCNOATI ( I ,3) +4 , SCN 


1489 


0300 








DftU(I,4)+4) 


1522 






RETURN 


1526 


UOvW 






1526 


VWvw 


RD2: 


LINE (SCNDATI (I , I ) + 4 ,SCK:AT: 1 1 ,2) +4)- ISGNDATI (1 ,3) +4 , SCN 


1528 


0300 








DftTI(I,4)M),,B 


15C4 


voVv 




RETURN 


15CB 








15CB 


ATAft 
UjUU 


RD3: 


LINE (SCKIATH I , I ) U.SCKGATl (1,2) +4) - ISCNDATI (1 ,3) +4 ,SCH 


15CD 










DATI(I,4)+41,,BF 


1667 


0300 




RETURN 


166B 


n't no 






166B 


0100 


RD4: 




1670 


0300 




RADIUSI ' £CR((SCK:at:;I,3)-SCN0AT:(1,11)''2 ♦ (SCNDATK 






I,A)-SCKDAU;i.21)*2) 


16FF 


0302 




CIRCLE (SC)IDAT:(I,11*4.SCNDAT;(I,2)+4),RA01U31,,,,1 


175D 


0302 




RETURN 


1761 


0302 






1761 


0302 


DRl: 




1766 


0302 




LIKE (n:*4,Yi:M)-(XIM,Yl+41 


17AF 


0302 




RETURN 


17B3 


0302 






17B3 


0302 


DR2: 




1788 


0302 




LINE cni+4,Yi:M)-(X:+4,YIM),,B 


IBOi 


0302 




RETURH 


180S 


0302 






1805 




DR3: 




180A 






LINE (ni*4,Yll+41-{n+4,YlM),,BF 


1854 


Oj02 




RETURN 


165B 








1B58 


0302 


DR4: 




185D 


0302 




RETURN 


1861 


■0302 






1361 


0302 


ERl: 




1866 


0302 




LINE (mH,Yi:+4)-(m4,n+4i,o 


IBftF 


0302 




RETURN 


1883 


0302 







0 268 237 



Reaqsnt Jet Printer PA3E U 

Pattern Entry/HodifiCotion 07-05-86 

10:46:13 

Oftset Data Source Line 11^ Personal Coaputer BASIC Coapiler V2.00 



I8B3 


03C2 


ER2: 




leBB 


03C2 




LIKE lHI+4,Yl;+4)-(n+4,Yl+41 ,0,B 


1901 


0302 




RETURN 


1905 . 


0302 






1905 


0302 


ER3: 




i9oa 


03C2 




LINE (Iu+4,TlI+4)-(XZ4-4,Yl*^4) ,0,Br 


1954 


0302 




RETURN 


195B 


0302 






1 953 


0302 


ER4: 




195D 


0302 




RETURN 


1961 


0302 






1961 


0302 


AHYKEY; 




1966 


0302 




A$ = 


1970 


0302 




WHILE A$ = 


197F 


03C2 




A* = IHKEYl 


1989 


0302 




urn 


198C 


0302 




RETURN 


1990 


0302 






1990 


0302 


BETHAHEi 


; 'proipt for and get filenaie 


1995 


0302 




LOCATE 25,1:PRINT SPACEJI39); 


1932 


0302 




LOCATE :5,33:PRIHT •<;*;: *boundry chevron 


I9CC 


0302 




LOCATE :5,1:PR1NT 'Enter Pattern Naie 


19E6 


0302 




LINE INPUT; NAMES 


19F4 


0302 




RETURN 


19FB 


0302 






19FB 


0302 


' Data fields used by this toaule 


19FB 


0302 






19FB 


0302 


KNl: 




19F0 


0302 




DATA •0IR','LC;0*/S;vE\'SRAr,'REPT'/EIIT',",5 


19FF 


0302 






19FF 


0302 


nN2: 




1A04 


0302 




DATA •LINE'/RECT','SRECT'/CIRCL'/REDRW/nAIN'/',5 


iA06 


0302 






1A06 


0302 


INSTRUC: 


lAOB 


0302 




DATA 8, 16, 'USE ARROWS' 


lAOD 


0302 




DATA 10,9/TO SELECT FRCH THE ttEHU* 


lAOF 


0302 




DATA 14, 12, 'USE THE ENTER KEY* 


lAll 


0302 




DATA 16,10, 'TO ACTIVATE SELECTION' 


IA13 


0302 






1A13 


0302 


END SUB 




lAlA 


0302 






21AF 


0302 







50426 Bytes Available 
43373 Bytes Free 

0 Warning Error (si 
0 Severe ErrorCsl 
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Burr-E'^own PCI-20000 custoi driver 06-30-B6 

08:38:16 

Offset Data Source Line IBK Personal Computer BASIC Ccapiler V2.00 



0030 


0006 


REM STITLE: 'Reagent Jet Printer* SSliBTITLE: '?urr-Brohn PCI-2000 
0 custoB driver' 


0030 


0006 


'MODULE 


- "PCr Driver for the PCl-20000 I/O and PULSE cards 


0030 


0006 






UwOv 


v\fvO 


'AUTHOR 


- H. S. Fairchild of Coiputing Architects Inc. 


vvOU 






113 Fairfield Way 








Blooiinadale, 11 60108 




cnftA 

uuuo 




312/980-6777 




VvVO 










•COPYRIGHT iCl 198S ABBOTT LABORATORIES 












VU WD 


'REVISIDH - 1.2-12-16-35 MSF Add digital I/O initalization, and 
output routine 


0030 


0006 








0006 




- 1.1 12-10-85 MSF Move counter lodule to position 2 


0030 


0006 






uuou 






- 1.0 11-22-65 MSF Creation of initial code 


0030 


OOOi 






AA7A 


AAAi. 


•SYSTEM 


- This code can only be coapiled by the BA5CCM V2 


0030 


0006 




COMPILER, it Hill not run under the INTERPRETER!! 


AA7A 


UUUo 






nA'^A 


nflAA 


'DESCRIPTIOH: 


vlUoU 


AnoA 

VUvO 


ccess 


The PCI aodule is a group of routines used to a 


AA7A 


vUUO 


auses 


the BURR-Bro«n PCI-20000 board. The supplied software c 


AA'^A 


UUUo 


rivide 


the Wordstar 2000 software to lalfunction and will not p 


AA^A 


AAAA 
UUUo 


ivers 


explicit on, off functions for the counters. Custoi dr 


A ATA 

0030 


AAAI 

OuOo 




Mill be idtie to prcvioe all of the desired functions. 


OOjO 


UUUo 






A AT A 

00^0 


AAAL 

UUUo 






AA'^A 

UUoU 


AArtA 
UUUo 




Address Register 


AA7A 


AAAA 
UUUo 




tHCOOOO Carrier I.D. / Bodule present IR) 


A AT A 

OOoO 


AAAL 

UUUo 




IHCOOAO Module interrupt status (R) 


A AT A 

OOjO 


AAAI 

UUOo 




IHC0050 Digital 1/0 port 0 (R/WI 


AAT A 

00^0 


AAA! 

UUUo 




IHCOOBl Digital I/O port 1 IR/W) 


AA^A 

UOjO 


AAA^ 

UUUo 




IHC0082 Buffer direction and enable (R/W) 


AA7A 
0040 


AAAA 

UUUo 




LHC0083 Control tor ports 0 and 1 (M) 


AA'A 


AAAA 

UUUb 




WCOOCO Digital I/O port 2 (R/W) 


AA7A 


AAAI 
UUUo 




fcHCOOCl Digital 1/0 port 3 (R/WI 


AAT A 

0030 


0006 




tHC00C3 Control for ports 2 and 3 (W) 


AAT A 
0050 


AAAI 

UUUo 






AATA 

OOjO 


AAAI 
0006 




IHC0200 Read lodule I.D. (1110 lOlO) 


0030 


0006 




ltHC0204 Rate generator low-oroer 16 bits (0) 


0030 


0006 




LHC0205 Rate generator high-oroer 16 bits tl) 


0030 


0006 




tHC0206 Counter 3 count register (2) 


0030 


0006 




tHC0207 Rate generator/counter 3 control 


0030 


0006 




IHC0208 Counter 0 count register (0) 


0030 


0006 




tHC0209 Counter 1 ccunt register (1) 


0030 


0006 




feKC020A Counter 2 count register (2) 


0030 


0006 




IHCC20B Counter 0-2 control 


0030 


0006 




WC020C Counter gate control (1 enables, 0 disa 



42 



0 268 237 



Reasent Printer 

Burr-SrcM FCl-ZOOOO custji driver 



DHset Data 



0030 0006 

0030 OCOfc 

0030 DCOi 

0030 0006 

003C OOOi 

0030 0006 

0030 0006 

0030 OO06 

0030 0006 

0030 0006 

, 0030 0006 

0030 OO06 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

0030 mh 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

0030 0006 

004C 0012 

004C 0012 



Sciirce Lir.s 
ble=/ 



bit 
0 
1 
2 

7 
w 

4 

5 
6 
7 



PAGE : 

06-30-S6 
08:3S:16 

IBn Personal Cotouter BASIC Coipiier V2.00 



function 

Rate generator gate 
Rate oenerator gate 
Counter 0 gate 
Counter 1 gate 
Counter 2 gate 
Counter 3 gate 
Not used 
Not used 



DICTICNARK 

COUMT - Divisor to 2nhz rate to give desired frequenc 
or tiiB 

COUNTHZ - High order 16 bits of a 32 bit diviso 

COUNTLX - Lou order 16 bits a 32 bit divisor 
LSBZ - LoMer 8 bits of a 16 bit divisor 
nSBI - Upper 8 bits of a 16 bit divisor 

Hain line code 

The tain line code is never executed. It's sole purpose 

it to 

declare shared the variables that Mill be used in the subrout 
mes 

so that they mil all be cehned and hold their values. 



KAIN: 



DIH SHARED COUNT, CCI;NIH;,C0UNTLI,LSBI,MSBI 



HAIKIOOP:. 

60T0 RAINLDOP 

R£n iPABE 
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70 



75 



20 



25 



30 



35 



40 



45 



50 



55 



Reagent 


Jet rr 


Burr-5r 


own FGI 


Offset 


Dita 


004C 


0012 


004C 


:oi2 


004C 


0012 


004C 


0G12 


004C 


0012 






0053 


0012 


0053 


0012 


OOSA 


KI2 


005ft 


0012 


0063 


0C12 


Uuoo 




0063 


CC12 


0063 


0012 


UUou 




0077 


0012 


OOBl 


0012 


008A 


0012 


0094 


0012 


009D 


0012 


O0A7 


0012 


UUh/ 


Aft 17 


0CA7 


0012 


O0A7 


0012 


UUdl 




OOBB 


0012 


00C5 


0012 


O0C£ 


0012 




Alii? 


OOEl 


0012 


OOEl 


0012 


OOEl 


0012 


OOEl 


0012 


OOEB 


0012 


uwr J 


0012 


OOFE 


0012 


OOFE 


0012 


OOFE 


0012 


OOFE 


0012 


OlOe 


0012 


0112 


0012 


OllB 


0012 


OUB 


0012 


OlIB 


0012 


OllB 


0012 


0125 


0012 


012F 


0012 



oi 2 



ntsr PAGE 3 

2CC00 cestci dnv^r 06-30-86 

08:38:16 

Source li-s ^'^-^ ?er5cr»5i Ccsputer BASIC Coapiler V2.00 

'S'jDnC'JTIKi - PCl.IKIT 

The PCl.lMIT suorcutir.e initalizes the PCI hardware. 
£'J2 PCi.lSlT STATIC 

DEF SEB = kHCOOO: 'Point seoient to PCl-20000 board 
rCKE iH020C,VH00; 'CiDable all software enabled counter 

s 

' Configure rate generator to 2 Whz 

POKE ;H0207,W34: 'Set low rate counter to lode 2 

POKE liK0207,lH74: 'Set high rate counter to tode 2 

POKE lH0204,iH02: 'load low rate counter with 16 bits o 

f 2 

POKE iH0204,fcHOO 

POKE lH0:05,tH02: 'Load high rate counter with 16 bits 

POKE ltHO205,lH00 
POKE IH020C,IH03: 'Enible rate counters 

• Configure dot rate counters (default to 5 Khzl 

POKE IH02CB|IH3V. 'Set I:* dot counter (01 to iode 2 
POKE iK3rCB,;H74: 'Set riigh dot counter (!) to aode 2 
PCKE Vr:020c,W04: 'Lead low rate counter with 16 bits o 

i A 

POKE iH0:0B,iH00 

PCKE ;h020V,VH64; *Ld40 high rate counter with 16 bits 

ol 100 

PDKE ;k0209,IHOO 
' Cfloiig-ure dot pulEt with one shot (default to 13 used 

POKE lfH020B,tKo2; 'Set oot pulse with oneshot (2) to id 

de 1 

PC'CE ;h020A,W1A; 'Load oneshot with 16 bits of 26 
POKE IH02CA,IH00 

• Cc^nficure shifted strobe pulse one shot (default to .5 usee) 

POKE iK0207,;HB2: 'Set shifted strobe onshot (3) to lod 

e 1 

POKE IH0206,VH01: 'Load oneshot with 16 bits of 1 
POKE iH0206,lH00 

• Configure port 0 to output and port 1 to input 

POKE iH0083,iH82: ' Set up I/O chip 

POKE ?tH0082,tH34; * Set up direction and enable buffers 

POKE &H0080,tHOO: * Dissable print head 
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Rdaycnt wit Printer 

Eurr-Eronn PCI-rC-jOO cusioa flriver 

O^^SEt Data Source Line 

EKj SuB 



0135 


oci: 


013F 


0012 


013F 


00!2 


013F 


0C12 


013F 


0CI2 


013F 


0012 


013F 


0012 


013F 


0012 


013F 


0012 




0012 


0146 


0012 


0150 


0012 


0150 


0012 


0157 


0012 


0157 


0012 


0157 


0012 


0157 


0012 


0157 


0012 


0157 


0012 


0157 


0012 


0157 


0012 


015E 


0012 


015E 


0017 


OlbB 


0012 


OUE 


0012 


016F 


0012 


OUF 


0012 



PAGE ; 
06-30-86 
08:38:16 

Id?! Personal Co«Duter BfiSlC Coapiler V2.00 



$PA5EIF:12 
5U3P-JUTIKE 



DOT.DN 



:ie:^iftiom: 

T]»e DDT.CN subroutine enables the dot frequency counter 

SL'B wLOS STATIC 

POKE lH020C,tK0F: 'Enable dot counters and rite generat 

or 

END SUB 

REn yPft6EIF:12 
'SUBROUTINE - DOT. OFF 

'DEStRIPTICH: 

The DQT.DFF subrou e disables the dot counters 

SUB DOT. OFF STATIC 

POKE IH020C,IH03: Disable dot counters and enable rate 
generator 

END SUB 

t^n «PAGE1F:49 
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Reagent Jet Printer 

Burr-5roffl Pui-2Q000 custci Driver 



OHsei DaU 

0I6F 0012 

016F 0012 

016F 0012 

016F 0012 

016F 0012 

0I6F 0012 

016F 0012 

OliF 0012 

0176 0012 

0176 0012 

0176 0012 

0176 0012 

OIBF 0012 

01A8 0012 

OlAB 0012 

OlAB 0012 

01A8 0012 

01B8 0012 

OICF 0012 

OICF 0012 

OICF 0012 

OICF 0012 

0100 0012 

OlFO 0012 

020B 0012 

020F 0012 

020F 0012 

020F 0012 

020F 0012 

0214 0012 

021B 0012 

0232 0012 

0236 0012 

0236 0012 

0236 0012 

0236 0012 

0237 0012 
0248 0012 
0263 0012 
0273 0012 
0283 0012 
0283 0012 
0291 0012 
02AC 0012 
02BC 0012 
02CC 0012 
02CC 0012 
0203 0012 
0203 0012 



Eciirce Line 
SUBRGUTIKE 



PAGE 5 
06-30-86 
08:38:16 

IBM Personal Coiouter BASIC Cospiler V2.00 



- £ET.DQT.RAT£ 



HESCRIPTIDH: 

The SET. DOT. RATE subroutine loads the dot rate counters 
with the desired dot frequency. Allowed range is 10,000 to I 
Hz. 

' The FREE paraieter is a real nufiber in Hz. 

SUB SET.DOT.RATE(FREQ) STATIC 

' Litit freqency to in range 

IF FREQ < 1 THEN FREQ = 1 

IF FREQ > 10000 THEN FREQ = 10000 

' Convert to count and check for 16 bit count or 32 bit count 

COUNT = 2E6 / FREa 

IF COUNT < 655361 THEN 60TD DIVIDE16 ELSE GOTO DIVIDE32 
' Process count of 32 bits 
DIVIDE32:. 

COUNTLI = INT ((COUNT 732768 !) ♦ 1): 'Stage lo»ier count 
CDUNTHl = INT(CClNT/CCUNTL1): Tort upper count 
GOTO SET. COUNT 

* Process count of 16 bits 

DIVIIiE16: 

COUKTLl = 2 

COUNTHI = INT(COUNT/:) 
GOTO SET. COUNT 

' Send the deriveo counts out to the counters 

SET. COUNT:. 

LSBI = COUNTLI ?10D 256: ' Send out Iom 16 bits 
HSBt = INT(C0UHTL1 / 2561 
POKE ;H020B,LSBI 
POKE lH020B,nSBZ 

LSBI = COUNTHI m 256: 'Send out high 16 bits 
K5BI = INT (COUNTHI / 256) 
POKE «tH0209,L3BI 
POKE IH0209,K3BI 

END SUB 

REM $PASEIF:27 
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70 



75 



35 



40 



45 



Rsaqent Jrt Printer PABE 6 

Burr-5roxn FCI-IOCOO custoi driver 06-30-86 

08:33:16 

Offset Dati Source Line IBM Personal Coaouter BASIC Coopiler V2.00 



02D3 CDJ2 ■SUSK-CL'TINE - SET.DOT. WIDTH 

02D3 0012 • 

20 0203 0012 'DESCHlPTlOi: 

0203 0012 ' The SET.DOT.)iIDTH subroutine loads the dot width one sh 
ot 

02113 0012 ' nith the desired dot pulse width, fillowed range is .5 to 16,0 
00 usee. 

25 02D3 0012 ' The dwidth paraieter is a real nuiber in usee. 

02D3 0012 

02D3 0012 SU5 ££T.20T.HIDTH(DWIDTH) STATIC 

02DA 0012 

02DA 0012 ' Liiit width to in range 

30 02DA 0012 

02DA 0012 IF DVIDTH < .5 THEN 0«1DTH = .5 

-02F3 0012 IF OilDTH > 16000 THEN DWIDTH = 16000 

030C 0012 

030C 0012 ' Convert to count 



030C 0012 

030C 0012 COUKT = DHIDTH / .5 

031A 0012 

031A 0012 ' Send the derived count out to the counter 

031A 0012 

031A 0012 LSBX « INT (COUNT BOO 256): ' Send out 16 bits 

0331 0012 KSBI = INTICOUNT / 256) 

0348 0012 POKE liH020A,LSBt 

0358 0012 POKE «rH020A,nSBI 

0368 0012 

0368 0012 END SUB 

036F 0012 

036F 0012 REfl $PABE1F:27 



50 



55 
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Reagsnt Jet Prir.tEr PAGE 7 

Burr-Broxn PC1-2O00O custoi driver 06-30-86 

08:3S:16 



5 


UttSBt 


Data 


t . MM rP^ Porcnnjl rn«niifor hi^TP PnEnitpr V? flO 
wOUrCS Lin8 rer bunai uuDUUicr Dnuiu uuH^iici *i»vw 




OTIC 


0012 














UJor 


Art t 0 


Uctilnir t lunl 


70 


UJor 


00 iz 


ins aC 1 ■ 5 1 nUDC* i/CLn 1 aUOruUtine lUaUa inc air uuc uciay 








one shot 




rtT t r 

036F 


0012 


Mltn tnS OSSireO airOue Oeiay tllct flHOrfeO rdflUc IS .J CO 10 








,000 usee. 




036F 


0012 


The delay paraseter is a real nuiber in usee. 


75 


036F 


0012 






036F 


0012 


SUB ScT.STKOoc.DtLHTlUtLfti) blhllL 




0376 


0012 






0376 


AA 4 ^ 

0012 


lilit delay to in ranae 




0376 


0012 




20 


0376 


0012 


nFi Au y c Turn nn a\# — s 

IF DELAY < .5 THEN DELAj = .5 




03aF 


0012 


IF DELAY > 16000 THEN DELAY = 16000 




03AB 


0012 






03A8 


0012 


' Convert to count 




03AB 


0012 




25 


03A8 


0012 


COUHT s DELAY / ,5 




03B6 


0012 






03B6 


0012 


' Send the derived count out to the counter 




03B6 


0012 






03B6 


0012 


L5BI * IHT (COUNT HOD 256): Send out 16 bits 


30 


03CD 


0012 


HSBI = IHTtCOUKT / 256) 




03E4 


0012 


nnt/P tiJA*^Al t PftV 

POKE «[H0206,L5BX 




03F4 


0012 


POKE kH0206,n5BI 




0404 


AA t 0 

0012 






0404 


0012 


END bUo 


35 


040B 


0012 






040B 


AA 1 1 

0012 


Rtn >rft5tlrl 16 




0403 


AA 4 0 

0012 


suDKQUiinL - DlbilHL.uj) 




040B 


AAl n 

0012 






040B 


AA« ^ 

0012 


ULbtHlPTIUN: 


40 


040B 


A A 4 ^ 

0012 


The DibnnL.uui suorcutine sends the passed integer to 








the output 




A <l AO 

040F 


0012 


port V* 




A A AO 

040B 


0012 






040B 


0012 


SUB DlblThLiDuTlBYTtfc) SThTIC 


45 


0412 


0012 






0412 


0012 


' Send the byte to the port 




0412 


0012 






0412 


0012 


POKE tH0080,BYTEI 




0423 


0012 




50 


0423 


0012 


END SUB 




042A 


0012 






057F 


0012 





50426 Bytes Available 
55 48723 Bytes Free 

0 Warning Error (s) 
0 Severe Error (s) 
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70 



75 



20 



25 



30 



35 



40 



45 



50 



Reigfnt 
Patten 



Ut PrintK- 
PrintinQ 



PA8£ 
09-1 
0E:4 



OHset 




Sowcf Lir.f 


IB« Personal 


0030 


O^Oi 




Jet Printir' JSUBTITLE: 'Pattern Printing' ILINESIZE: 132 


0030 








0030 


0006 








00^ 


CO0& 




- H. A. Eflivcltf 


0030 


0006 








0030 


CO06 


•::;n[gi=HT it) \m abpctt labcjiatories 


0030 


0006 










Wv9 


'RT/ISICS - 2.0 C7-02-Bb WAE nodiHed for HicroFab PrinthMd 








- 1.1 03*07-86 NA£ Added notes and Unal touches 


Art \fl 






1.0 C2-03-66 NAE Creation of initial code 




VvvO 








0030 


0006 




- TMs code can only be coipiled by the GASCOX 


0030 


0006 




COnPlLER, it Kill not run under the INTERPRHER!! 


0030 


0006 










0006 












The printinq icdule displays a lenu in 3 coluins of 4 rows each. The first 


0030 


OO06 




coluin h» data fro* the default reiQcnt profile. The second coluin has 




0001 




data froi the default pattm file. The third coluin has standard printing 


UUjU 






data. The four arro» keys aUon different aenu iteas to be highlighted and 








the values can be changed Bith the ♦ or - keys or by entering the nen nuiber 




vvv* 




foUoHed by Enter. P «ill cause the pattern to be printed, 5 «iU select the 


0010 


WW* 




ootepadf and E mW Hit to the lain prograa. On the notepad, any single line 


0030 


0006 




entered here aUl be sent to the printer. A null line exits the notepad. 


0030 


0004 








00150 


0006 


•DATA DICTIONARY 




0030 


0006 




fEHUl 


Mhich lenu itet is highlighted 10-17) 


0030 


0006 




oirn 


Uhere ;3 love aenu highlight io response to arroM key 


0030 


D006 




type: 


Mhat key his been pressed during aain scan 




vuwo 




tLrj« 


Huiber o( eltients in current pattern 


O03O 


0006 




scv:;tii:o, 


i) flrrjy ior storing eleients in current pattern 


0030 


0006 




RtPta: 


Counter for repeat printing the pattern 


0030 


0004 




CTl 


Counter for stepping through the pattern array during printing 


0030 


0004 






Radius of circle during printing 


0030 


0004 




i: n 


Offsets for start roM/coluin position 


0030 


0004 






Repeat distances for repeat printing of pattirns 


0050 


0C06 




sn sn 


Starting I and Y positions for solid rectangles 


0030 


0004 




EU EYX 


Ending I and Y positions for solid rectangles 


0030 


0094 




11 JI 


Counters used for reading pattern files into the array 


0030 


0004 




T0IPI 


Register for use. iittgKi 


0030 


0006 




MTEimi 


Pointer to Hhich line is active in the notepad 


0030 


0004 




K£MUI(t7,n 


Array of strings used to display leott ittes 


0030 


0004 




M 


Single keystroke input destination 


0030 


0006 




XQTEt 


String entered in notepad and sent to printer 


0030 


0006 




nnm 


String entered froi aain scan and assigned to nuiber of string f 


0030 


0006 




REAKAnEt 


Naie of def aslt reagent 


0030 


0004 




PATKAKEI 


Naie of default pattern 


0030 


0006 






Naae of reagent data file and then pattern data file 


0030 


OO06 






Array of values used in displaying aenu itei nuibers 


0030 


0006 




TEBP 


Register for the teiporary storage of real nuabers 


0030 


0006 







55 
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Reiger.t iit Printer 
Pattirn Frintin; 



PASE 
CM- 
OS: V 





Of r Sit 


Data 


Ssurci Line 


IBH Personal 


10 


0030 


0C26 


s-;5 p;t?r:nt static 




0047 


0006 








0047 


0004 


DIB SCHDATIt50.5),fl£HUf(l7,l),HEMU(l7,4) 






0048 


0442 








0046 


0462 


BOSUB INlTIAinE: 'read init. values and set screen 




0C4E 


0462 








004E 


0462 


WILE tvpe: O I 




75 


0059 


0464 








0059 


0444 


type: = 0 






0060 


0444 


flf » " 






006A 


0448 








006A 


0448 


WHILE Al « 




20 


0079 


0468 


Ai « mm 






O0B3 


iM48 


MEKD 






008& 


044S 








00B6 


M68 


IF A$ » OR A$ » 'e' THEN TYPEI « I: 


'ciit sub 




00B2 


0448 


IF fl$ = 'P- OR At * 'p' THEN TYPn » 2: 


'print pattern 




OODE 


0468 


IF Al » THEN TYPEI « 3: 


'increient variable 


25 


00F4 


0448 


IF A$ * THEN type: - 4; 


'decreient variable 




OlOA 


0468 


IF A$ = CHRSIO) + CHRH72) THEN TYPEI * 5i 


'up arron kry 




012F 


0448 


IF At « CHKt(OJ ♦ CHRf(30l THEN TYPE! - 6: 


'doirfl arroH kty 




0154 


0448 


IF AS * CHRKOl ♦ CHRtl75) THEN TYPEI « 7: 


'left arro» key. 




0179 


0U8 


IF At = CHRl{0) ♦ CHR$(77) THEN TYPEI » 8: 


'right arrc« key 




019E 


0468 


IF At > CHRtU7) AND At < CHRtlSB) THEN TYPEI 


« 9r nuiber 0-9 


30 


0106 


(M48 


IF At = 'S* OR At » •s' THEN TYPEI ^ 10: 


'enter scratchpad 




0202 


0448 








0202 


0448 


ON TYPEI fiOSUB Tl, T3, T4, T5, T6, T7, T8, 


T9, TIO 




021F 


0448 








021F 


0468 


HEND 






0223 


0448 


TYPEI = 0 




35 


o:2A 


0448 








022A 


0443 


EXIT SUB 






022E 


0448 








022E 


0448 


'ffiiutiiiii SUBPOUTIXEa FCR THIS RODUIE iitiffiffH 






022E 


0448 


TIO: 'scratch pad 






0233 


0448 


SCREEN 0,0,2,2: CXOR 7.0 




40 


0256 


0448 


LOCATE KSTEIINEI,! 






0264 


04 4A 


KOTRCOP: 






0269 


044A 


LINE 1K?UT KOTEI 






0277 


04 4£ 


IF NOTE! » TWEM SCREEN 0,0,0,0:R£TURN 






029F 


044E 


LPRIUT NOTEt 






02AC 


044£ 


IF NOTELISEI < 24 THEN HDTaiNEI « NOTaiHEl ♦ I 




45 


02C0 


046E 


60T0 NOTaaop 






02C3 


044E 








02C3 


044E 








02C3 


044E 


Tl: 






02CB 


044E 


RETURN: 'eiit to print lenu, no action 




02CC 


044E 






50 


02CC 


044E 


13: 'process key 






0251 


044E 


IF HEr*U(nEN=JI,0) nENUtK£HUI,n THEN «ENU<«EHUI,0) = nENU(nEKUl,ll:R£TURH; 




033C 


0470 


HEKU(r.E>;UI,0) « HESUiHEHlR.O) ♦ .lENUtHENUI,:): 


'add iRcreient 




0372 


0470 


COLOR 0,7:63SUB DISPnENU:RETURN: 


'show new value 




0388 


0470 








036B 


0470 


T4: 'prxesi key 





55 



50 



0 268 237 



neigenl Jet frmler 



Offjft Diti 



ret Lite 



C9-17 
06:47 

\in Personal Cciouter BASIC Coipiler V2 



10 




047-3 




IF 5nU(J^EMJlt0} <= rEKJinEHUI,?) THEN nLSUt^cNUI,0) = f^EhJlftMJj.,.) :RlTukH; check 


C3F8 


0470 




.".irtyinLNUltO = r!EHUt!lENUI,0) - R£NUtnENUI,3) ; *5ub mcreient 




042£ 


0470 




CCLaft 0,7:GCdUB DISPf1ENU:RETURN: 'shot* nen ulue 




0444 


0470 








0U4 


0470 


TS: 


'process up arrow key 




C44<) 


M70 




IF StXU: «0D 6 - 0 THEK RETURN: 'in top roi* ilreidv 


15 


04n 


M70 




Dim = -i:5DSUB NEKnENU: RETURN: 'love pointer up one 


04&F 


0472 








04iF 


«72 


T6: 


'process dOMn arrov kiy 




0474 


0472 




IF HEKul ROD 6 « 5 THEN RETURN: 'in bottoi row already 




048; 


0472 




DJFFX < hGOSUB KEURENU: RETURN: 'love pointer down one 




0496 


0472 






20 


049B 


0472 


T7: 


'process Mi arroH kiy 


04A0 


0472 




IF IKTIKENUI / 6) » 0 THEN RETURN 'in Iclt coluin already 




04C0 


0472 




WrrZ - -6:60SUB NEHKEKU: RETURN: 'love pointer one left 




0401 


0472 








04D1 


0472 


78: 


'process richt arrow key 




04D6 


0472 




IF INT(nENU: / 61 -'2 THEN RETURN 'in right coluin already 


25 


04F9 


0472 




OlFFI = 6:BD51;B KEIin£KU:f.ETURN: 'iove pointer one right 


050A 


0472 








050A 


0472 


79: 


'input Vtvs into KEYp'JFJ until <cr> is entered 




o5or 


0472 




LOCATE 25,30:C0LOR ;i,D:PRINT "ENTER NEN VALUE'pCOLCR 15,0 




0541 


0472 




KETBUfS s AS 




054B 


0474 




UHILE AS <> CHRS(t:i 


30 


055E 


0476 




LOCATE :5,47:P=IMT SPACEICO); 




057B 


0474 




LOCATE 25,47:?RUT KEY&UFS; 




0595 


0476 




A) » 




059F 


0476 




NHILE AS X 




05AE 


0474 




AS > IhKEYS 




05BB 


0476 




VEND 


35 


05BB 


0474 




IF AS = CVF.I181 i«0 LENirEYBUFS) > 0 THEN >:EYBUF$ - L£FTS(*:£YBUFS,LENtKEYBUF$r 




05FB 


0474 




IF AS > CHRJCl) THEN KEYBUFS * ICEYBUFS ♦ AS 




06i£ 


0476 




VEN9 




0622 


0474 




TEn? * VAL(KEYBUFS) 'teip has value oi keys input 




0632 


C47A 








0432 


047ft 




'round off teiD accoroinq to step size in lenu array 


40 


0632 
066B 


047A 
047A 




TEKP * IHT(TERP / inENU(REHUlt31) ♦ .51 » RENU(R£KU:,3) 




0661 


Wh 




'test TEKP for aaxiiui and liniiui values in itflu array 




066B 


047A 




IF TEKP > nEHU(ROlUI,l) THEN TEMP « RENU(HEm,U 




06AA 


047A 




IF lERP < R£I(U(HEKU1,2) THEN TENP = RENUinENW,2> 




06£9 


047* 






45 


06E9 


047A 




'insert new value into lenu array and update screen 




06E9 


047A 




nEKUinEHUItOl « TERP 




0705 


047A 




LOCATE 25,30:PRINT 5PACES{40)i 




072: 


047A 




COLOR 0,7:605UB DISPREHU 




0734 


047A 




RETURN 




0738 


047A 






50 


0738 
0730 


047A 
047A 


T2i 


'set Burr-Brown board then print desired pattern 




073D 


047A 




BEE?:CCLDR 15,0:L0CATE 75,1 




075A 


047A 




PRINT 'Set Potentioeeters on Printer — then Press any Key'; 




0767 


047A 




AS » 




0771 


047A 




WILE AS » " 



55 
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Reag»nt hi Printer 
•Pattirn Printing 

Offset Data Source line 



PA6E 

0M7 

0B:49 

ISA Personal Coiouter BASIC Coipilir V2 



0780 047A 

^0 07Bft 047A 

0780 047A 

07AA 047A 

07AA 047A 

07AA 047A 

07D3 047A 

07ED 047A 

0B19 047A 

0B25 047A 

0B25 047A 

Co2C 047C 

0fl3C 047C 



20 



25 



30 



0643 047C 

0853 047C 

085A 047C 

086A 047C 

0B6A 047C 

0B93 047E 

06A0 0460 

08A7 0480 

0BB7 0480 

08BE 04B0 

08CE 0460 

06E0 0462 

08E0 0482 

06E0 0462 

08F2 0482 

0902 0482 



0902 
35 0902 



0462 
0482 

0912 0462 

0912 0462 

0912 0482 

0954 0484 

0996 0486 

40 09B4 0466 

0934 0466 

09B4 0486 

09D7 0488 

09FA 048A 

09fA 048A 

45 OAIC 046C 

OAIC 048C 

OAIC 046C 

0A2A 0490 

0A4C 0492 

0A5E 0492 

50 0A5E 0492 

0A6E 0492 
0A3C 
OAAl 
OAAl 
OABl 

55 



0492 
0494 
0494 
0494 



LOCATE 25,1:PRINT 5PA:Ei{79); 

'enter drop parameters into burr-brown board 
Tc«P = flENU(0,01:CALL SET. DOT. RATE iTE«P) 
TEnP » 5:CALL SET.DOT.WIDTH(TEnP) 
TEHP ' KEKU(2,0):CALL SET. STROBE. DELAY tTEBP) 
CAU DOT.ON 



te«p: * 4 

CAU DlBITAL.O'JTlTEnPI) 

nm * 0: 

CALL DIS17AL.0UT(TEHPI) 
TESPl = 4 

CALL DIBITAL.OUTITEBPI) 



'pulse RESET line 



n ' C1NT(KENU(1,0) « 255 / ISO): 'stt pulse aaplitude by pulsing HIGHER signal JI nuiber of tiies 
FOR i: = 1 TO JX 

TEHPI * 6: 'set HIBHER true 

CALL DISITAL.DUTITEHPI) 

TERPI = 4: 'set HISHER false 

CALL DIGITAL. OUTlTEnPI) 

NEXT IZ 

'establish COM: and initialize plotter 
OPEH •CD."ll:2400,H,8,:,:3 655:5' AS II ' 
PRINT ll/;:UEC5,£rVI,h*; 

'•ove noizlt offset and establish nev origin 
PRINT ll/AO'; 

'calculate rc«/coluin locaticn, lOve there, and set nev origin 
II • (f.EKU(l2,0)-l) • (rtNU(14,0) / 0.005) 

n » t!iEKuii:,o)-n • ir.£Huii5,o) / o.oosi 

PRINT tl,x:;T:;*D'; 

'print the pattern using rtptat count 
REPYI = flENUtSfO) / O.OOS 
REPXl » K£KUt9,0) / 0.005 

FOR REPEATl « 0 TO RENU(7,01 

'print the pattern 

FOR CTl « 0 TO ELNUNl • 1 

ON 5CNOATIICTI,01 S05UB PLINE, PRECT, FSRECT, PCIRCL 

NEXT ct: 

PRINT fl/AiO,©,*;: 'return to origin 
PRINT tl,REPXI;REPYX;'0';: 'wve to next pattern 
NEXT REPEATl 

PRINT II, 'H';: 'return plotter to original NONE 
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70 



75 



20 



25 



30 



35 



40 



45 



50 





Jet Pfinlir 






Pilleffl 


FriniiRo 






Offset 






Line 


IBn Perianal Coiputer 


OABl 


0<94 




ClOSt W: 'disibU cdiI: 




UHOO 


C4t4 








VnOO 


CJ')4 




RETURM 




OftBC 


0494 








OABC 


0494 


PllKE: 






OfiCl 






PftlKT •l,5uiMTltCTI,21;SCNDATI(CTItl);'l)'; 




0B03 






PRIKT IUSC)itATltCT1.4):SCNDATltCT1.3)*'U': 




wo* J 


0494 




{(ETURJt 




0B49 


M94 








0B49 


0494 


FRECT; 








0494 




PRIKT 11 ,SCNDAT1 tCTI,2) ; SOJDATl tCTI, 1) ; 'D* ; 




0B90 


0494 




PR INT 1 1 , SCKDATX t CTI , 4 ) ; SCKO ATI ICT2 , 1) ; 




OBCC 


0494 




PRIKT M ,SCKDAT:(CTI,4) ;SCNDATltCTl,3) ; 




OC08 


0494 




PRIKT •I,SCN0ATX(CTI,2)iSCM0ATI(CTI,3)i 




0C44 


0494 




PRIKT •l,SCNDATX(CTI,2);5CKDATI(CTI,l);'U'; 




OCBfc 


0494 




RETURK 




OCBft 


0494 








0C8A 


0494 


PCIRCl: 






0C3F 


0494 




RAOIUSI = SCR(tSCMDATttCTX,:)-SCNDATItCT:,lJr2 ♦ (SCNDAT:(CTZ,41-SCHCATltCT:,:) )*2) 


OOIA 


0496 




rRlNI CI , LL JbLnDAIZlLUf 2) ; blNUAi i(LTI,ll J RHUlUbl; 




ADA"* 


0496 




RETURN 




vUO/ 


0496 








UUO/ 


0496 


PSRECT: 








0496 




SU « SCNDATX(CT:,U:EI1 s SCNDAn(CTX,2) 




vUnV 


049A 




SYI « SCNDATX(CTX,:i:£V; » SCMDATIfCTi,!) 






049E 




IF EIX <= SU THtN III = SCSDATXtCTX,2):£IX = SCNDATI[CTX,41 




0E15 


049E 




IF EYX 5Y: TKiN STX r SCNDATXICTX^UiEYX = 5CMDATXtCTI,3) 






049E 










049E 




PRIKT ll,Sn;5YI;'r; 




0E74 


049E 








0F7I 


04C£ 




IF EIX - SIX ill - 5YX THEN GOSliB BTEPY ELSE B05UB STEPI 




VC71/ 


047E 








VL7V 


04?£ 




PRIKT II/U-; 






049E 




RET\JRK 




OEBl 


049E 








vCfil 


049£ 


STEFT: 






VLDO 


049E 




PRIKT •l.EIXjSYX; 




vLLC 


049E 




SYX » SYI ♦ I 






049E 




IF SYI > EYX THEK RETURK 






049t 




FlilKT •l,EIX;SYX;SIX;SYl; 




vruc 


049E 




SYX » SYX ♦ I 




wr 1 / 


049E 




IF Sn > EYX THEK RETURK 




OF28 


04?E 




PfilKT ll,5II;Sn; 




0F40 


049E 




SOTO STEPY 




0Fi4 


049E 








0F44 


049E 


STEPI: 






0F49 


049E 




PRIKT ll,5:X;£YX; 




m\ 


049E 




SIX * SIX M 




0F6A 


049E 




IF SIX > EIX THEN RETURN 




0F7B 


049E 




PRINT ll,SniEYX)Sn;SYI; 




OFAl 


049E 




SIX » SIX M 




OFAA 


049E 




IF SIX > EIX THEK RETURN 




OFBB 


049E 




PRINT ti,SIXjSYX; 




0FD3 


049E 




SOTO STEPI 





PAGE 
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5 ReiQcnl Jit Printer 
Pattern Printing 





Offset 


Data 




0FD7 


049E 


70 


0FD7 


049E 




OFDC 


049E 




OFEE 


049E 




OFrA 


049E 




lOOC 


049E 


75 


lOlE 


049E 


1030 


049E 




1046 


049E 




mty 


049E 




t04B 


049E 




104B 


045E 


20 


108F 


049E 


10A9 


049E 




10A9 


049E 




t0A9 


04?E 




tOCE 


049E 




lODB 


049E 


25 


ioe: 


049E 




ioe: 


049E 




10E2 


049E 




10E9 


049E 




lOEF 


04 9E 




lllF 


049E 


30 


1180 


04 9E 


1193 


049E 




1193 


049E 




1193 


049E 




1193 


04 9E 




\m 


049E 


35 




mi 




ncB 


04A6 




ncF 


04A6 




IICF 


04A6 




UEO 


04Ab 




1200 


04A6 


40 


1223 


04A6 




1246 


04A6 




1269 


04A& 




128C 


04A6 




12B1 


04A6 




12BB 


04A6 


45 


1286 


04A6 




12B8 


04A& 




I2B8 


04A6 




12C9 


04A6 




12DB 


04A6 




12ED 


04AA 


50 


12F4 


04AA 




12F4 


04AA 




1305 


04AA 




1317 


04 AA 




i3:a 


04 AA 




135D 


04AA 



Source Lir.e 



PAGE 

09-17 

08:49 

IBn Fersonil Ccipuier BASIC Coipilir V2 



NEaj'.EHU: '•rite old itet in yellon, point to ana highlight new itii 
CQIOR t4,0:60SUB OISFHENU 
nimi = REHUl + OIFFl 
:F m\Jl = 10 THEH HENUl = 9 
IF r,mi = U THEN HENU: = 9 
IF «ENUl > 15 THEH r.ENUI » 15 
COLOR 0,7:60SUB DISPnEKU: RETURN 

IHlTIAinE: 

'change to screen 0 and display lessiges 

SCREEN C,0,l,l:CaiOR 7, 0:CL£: LOCATE 10,17;PRINT 'Loading selected Reagent and Pattern Data Files'; 
LOCATE 12,33:PRINT •Please »iit../ 

'initialize notepad on screen 2 
SCREEN 0,0,2,liCL3:C0L0R 15 

PRIHT'Oigital Notepad - - -All intonation typed here is sent to the printer* 
NOTELINEX « 3 

'initialize lenu arrays 
RESTORE ARRDATA 
FOR 11=0 TO 17 

READ RENUS([I,OI,nE»US{II,lh 

READ BENUllI,i:,llENU(i:,2J,RENU(lI,31,nENU(Ilt4) 

NEU U 

'get default reagent i\\t and read values 

OPEH •REAOEF.RaP' FCR INPUT AS II 
INPUT lUFILEl 
INPUT ll,REANAREI 

aosE II 



DPEX FILE! FOR IHPUT 
INPUT ll,nEHU(0,01: 
INPUT ll,nENUtt,0): 
INPUT ll,?'ENU(2»01: 
INPUT ll,XENUa,0): 
INPUT ll,RENU(4,0): 
INPUT IWnENUCS.O): 
aOSE II 



;S 11: 



'get reagent data 
frequency 
'aiplitude 
'strobe delay 
'pulse Midth 
'rise tiic 
Mill tiu 



'get default pattern Hie and read valuei 

OPEK 'PATDEF.WP* FOR IKPUT AS II 
INPUT ll,FILEI 
INPUT IliPATHAHEJ 
CLOSE 11 



55 



OPEH FILEJ FOR INPUT AS II: 
INPUT lUELNWl 
INPUT lUHENUtS.Oi: 
INPUT II.nENUC;,!)): 
INPUT ll,nENU(6,0): 



'get pattern data 
'grid 

'repeat count 
•x offset 
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Rsigwt Jet Printer 
Pattern Printing 

0-ffset Dati Source Line 



70 



75 



20 



25 



30 



35 



40 



45 



50 



09-17 
0B:4f 

IBH Ptrsonil Coiouter BASIC Ccaoiler V7 



1!S0 04AA 

13A3 04AA 

13BI 04AC 

1367 04ftC 

13DB 04 AC 

UEB 04AC 

13FD 04 AC 

1404 04AC 

14C4 04AC 

1404 04AC 

1404 04AC 

1420 04AC 

143C 04AC 

MSB 04AC 

1474 04 AC 

1474 04AC 

1474 04AC 

1474 04AC 

1491 04AC 

1491 04AC 

1462 04;C 

14B9 04AC 

14C3 04AC 

IS23 04B0 

153E 04B0 

1548 04B0 

ISCfl 04t0 

15E6 O4B0 

15ED 04B0 

ISn 04B0 

U2A 04B6 

U4S 0486 

U45 0466 

1645 04B6 

1645 0466 

1651 0486 

1657 0466 

t6SD 0464 

166D 0466 

\M 0466 

164D 0466 

1680 04B6 

1686 0466 

1686 0466 

1686 0466 

1692 0466 

16C1 0466 

[6F0 0466 

170A 0466 

170A 04B6 

1754 0466 

17V3 046(6 

17E9 04B6 



INPUT tl.ftcKU(9.0l! 'y offset 

FDR 11 = 0 TO ELKUni-l 
FOR Jl = 0 TO 5 

INPUT tl«5CNDATZ(II,JI} 

NEXT n 

KEIT n 
CLOSE II 

'set reiiining piraieters in lenu irray 



K£KU(12,0) > 1: 

KE»(Utl3,01 * 1: 

H£KU(U,01'< 0: 

KE»ajll5,0) > 0: 



'roM 1 
'coluin 1 
'roM spacing 
'coluin spicing 



'change active dispWyed screen to screen 0 to drau and display paratcters 
SCREEN 0,0,0, l:CLS 

COLOR 13:L0CATE l,3hPRINT 'REABENT PR1NT1K6'; 

COLOR 9 

FOR 1=2 TO 79 

LOCATE 3,I:PRUT CHRSU961;: LOCATE 5,1:PR!NT CKKn205) ;:L0CATE le.hPRINT CHRt(196); 

NEU I 

FOR 1*4 TO 17 

LOCATE l,l:FRU: CHRt(l79» ;: LOCATE I,:B:PR1»(T CHRf 1166) ;: LOCATE 1,54:PRIHT CHR$(I86) ;:LOCATE I,£ 

RUT CKRftI79l; 
NEXT I 

RESTORE TABLE 
FDR ]-] TO 12 

READ r:,c:,n::l::ste ri,ci;PRikt chrunD) 

NEXT 1 

'display 16 aenu choices in yelloH 

COLOR 14,0 

FOR nm > 0 TO 15 

605U6 OlSPHEKU 
KEXT REWI 

*stt For First leny entry and Mghlight it 
film » 0:CflLOR 0,7 
60SU6 OlSPHEKU 

'print three headings and instructions 
COLOR 10,0 

LOCATE 4,l4.5-LEKtREA>iA«En/2:PRIIIT REftNAHEl; 
LOCATE 4,41-LEN(PATN;nEt)/2:PRINT PATNAREI; 
LOCATE 4,A0:PRINT 'PRINT LOCATIOH'; 

COLOR 7:L0CATE 19,:0:PR1KT "Jse 'pCOLOR 15:PRINT CHRI(27l;CKRt(32);CHR$i261; 
PRINT CHR$(32l;CHRt(:4);CHRIl32);CHR$(25);:COL0R 7:PRIHT • to position highlighted cursor*; 
LOCATE 20,18:PRINT 'Use 'pCClOR 15:PRINT 'firCOLOft 7:PRIMT • or 'jiCOLOR 15;PRIHT 
COLOR 7; PRINT' to scroll current value up or down'; 
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5 



70 



75 



20 



Reaoint Jtt hinitr 
•Pittirn Printing 



25 



30 



35 



Offset 


Data 


17F0 


04B6 


183F 




1867 


CU6 


1B9C 


M66 


ie9C 




189C 


0486 


189C 


04E^ 


1861 


0AB6 


mi 


M86 


IB65 


0486 


18BA 


04U 


IBDE 


04B6 


1 938 


04S6 


1956 


04B6 


19ES 


04B6 


19BB 


04B6 


193F 


04B6 



Source line 



PA6E 

09-17 

08:49 

tBR Pirsofial Coiputer BASIC Coioiler V2 



LC:;TE :i.b;PRINT 'Usc 'itCOLOR 15:PR1HT 'P';;CO'i.OR 7:PR1HT • to print patttrn or 
CCLCR M:?mi '£';;C0LOR 7:fRINT * to exit to print itnu*; 
PRIHT • or •;:COLGR iSsF^IMT "S'lrCOLGR 7tPRlNT * to use notepad"; 

'set screen to vie* lenu just creittii and ent 

SZ^m 0,0,0,0 
RETURN 

IF flENui = 10 OR nmi ' n then return 

LOCATE inENUI nOD 6U2+7, (IMT(H£NUZ/6Ji2B*2)-2#INT(l1E?*U2/I2) 

PRINT ncS'Jt(n£NUI,0) 

LOCATE inmi m 61»2+7,HENU(I1ENUZ,4) 

PRm vsm n£NunnENUi,i);flE)iU(nE)iLii,0)j 

RETURN 
REN IPA6E 



40 



45 



50 
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5 



Fti^Mt iftt Printfr 
fO Patttrn FrintiftB 



OHset DftU 5o^ci Line 



09-17 
08:49 

lEn PtrsDnil Coiputtr BASIC Coipilir 



196r 


^456 


-iHiUHMii LATA US£D EY THIS P.ODULE « 




19BF 


04 








196F 


0486 


^r.RDATA: 










uATr *uut Frtoupiicv 


Hz- 


/II, nr. 10000.1,1, 16 


l9Ci 




PATA *AijHtiid» 


V • 


,'lir,l5D.0,l,l9 


19C8 


04 


OATh 'Strobt Del AY 


uS- 


,'HJ5I.IM5999.5,.5,.5,14 




04 B4 


DATA *?uU» Uidth 




,'tll',999,0,l,l9 


tQfT 


MBA 






,'ttl',999,0,l,l9 


iQrF 


C4Bi 


DATA 'FjII Tia* 

Vn IN rail 11 Be 




,'MI',999,0,l,t9 


tonn 

i tUW 


IHM 


DATA 

Vn lit OTiy 9l4C 


IB*/ 


l.ur,. 005,. 005, .005,45 






Vtl 111 nCpcll bUUnw 


• a 

1 


•f,99,0,l,47 


1 lUS 


tank 


DATA *I Alls OHset 


in',' 


l.llf,2.0,. 005,45 


19D6 


04B4 


DnTA *Y Axis Offset 


in',' 


1. Ill*, 2,0, .005, 45 


1 TUD 




DATA ■•.••.0.0.0.0 






1 lUn 




DATA " 0-0.0.0 






ipnr 


VI DO 


DATA *Roi to Print 


•,•«' 




t9Df 


vnpo 


DATA 'Coluin to Print 


99, 1,1, 74 


ntu 




&&T£ *PnH Qnarins 
Vnltl nuw Sy*\min^ 


iV, 


'4. IM', 3,0,. 005,72 


IOC? 






in', 


•I.4ir,3,0,.005,72 


ion 




DATA ••,•',0,0,0,0 






19E6 


04Bi 


DATA ",•■,0,0,0,0 






i9eB 


MM 








I9c8 


Q4Bi 


TABLE: 










DATA 3,1,218 






19EF 


(MBi 


DATA 3,28,210 






I9F1 


04B& 


DATA 3,S4,210 






19F3 


04Bi 


DATA 3,e0,l91 






19F5 


&4fi^ 


DATA 5,M98 






19r7 


04B4 


DATA 5,28,204 






19F9 


<AU 


DATA 5,54,204 






19FB 


MM 


DATA 5,80,181 






19F0 


MB4 


DATA !B, 1,192 






19FF 


04U 


DATA 18,28,208 






lAOt 


MM 


DATA J8,54,2D8 






lAOJ 


04B4 


DATA 18,80,217 






IA05 


0484 








IA05 


04B4 


EXD SUB 






I AX 


0484 








tAOC 


04U 








2049 


0414 









50424 tyt» AvAUiblt 
447U 8yI«$ Frw 

50 

0 «4rning Errord) 
0 Smr» Error (il 
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Reacert Jet Printer PA6E 1 

Reagent Filina 07-09-86 

15:04:35 

Offset jcta SD-rcB Lire It?^ Personal Coaputer BASIC Coapiler V2.00 





0030 






it Jet frinter' $StJBTITLE: 'Reagent Filing' 




0030 






:L£' File Hanoi ing for reagents 




0030 


ooos 








OO30 


OCOo 


'^UTHOn - K, A. 


Enevoid 


70 


0030 


OCCi 








0030 




CCPVRIS'HT fCi 1785 APSOTT LABORATORIES 




0030 


:oc6 








0030 


00v6 


REVISluH - 1.1 03-07-86 NAE Added notes and description 




0030 


c-ow 


1.0 02-14-86 KAE Creation of initial code 


75 


0030 


O0G& 








0030 


000& 


'StSTE« - This code caa only be conpiled by the BASCOIt 




0030 


cow 


COMPILER, it will not run under the INTERPRETER!! 




0030 


OCC& 








0030 


000& 


•DESC^IIPTICN: 




20 


0030 


mh 


This lodule allow file handling for reagents. When inv 








oked) it displays 






0030 




the current contents of the reagent directory in 4 colu 








ans of 20 entries 






0030 


000& 


each. The reagent «hicn is currently selected for prin 


25 






tinq is larked by 






0030 


&Cu6 


an asterisk to the left of the reagent naie. After the 








directory is listed 




0030 


0006 


the user is presented -ith 5 ienu choices. The left an 








d right arrows are 


30 


O03O 


OOOb 


used to highlight lenu itets and the enter key is used 








lo invoke action. 






O030 


0006 


The lenu choices and t^eir actions are: 




0030 


ooos 








0030 


0006 


DELETE - Retove a reagent file frci the directo 


35 












003^ 


0006 


COPY - Copy a reagent file to a new reagent n 








ate, saving the old reagent 




0030 


0006 


RENAnE - Chinoe the naie of the reagent without 








changing the reagent itself 


40 


0030 


0006 


SELECT - SeUt a reagent for printing 




0030 


O0O6 


EXIT - Return to the fiain aenu 




0030 


0C06 








0030 


0006 


'DATfe DICTIDHARY 






0030 


0006 


TYFEX 


Vhich type of valid key was pushed 


45 


0030 


0006 


Hzm 


tfhich tenu itei is being pointer to (0-4) 




0030 


0006 


DlFFl 


Distance to oove HEKUI at left or right arro 




0030 


00C6 


V 

FLASl 


Error type 0-4 




0030 


0006 


PaiNTERl 


Position of REANAMEt in directory list 


50 


0030 


0006 


REAHUHZ 


Huiber of reagent naies in directory 








list 






0030 


0006 


TEffI 


Storage tor integers during reagent copy 




0030 


0006 


At 


nisc. input string 




0030 


0006 


FUnCTI 


Printed at bottoe of screen during proapt fo 


55 






r reagent naae 




0030 


0006 


REr.NAr£$ 


Reagent nace currently being worked on 




0030 


0006 


SELNAflES 


Reagent nase currently selected for printing 




0030 


0006 


FILES 


rilenafie of reagent oata file 




0030 


0006 


SrlLEi 


Filenaae tor source reagent data file used d 
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5 


Reagent 


Jet rrinter 


PAGE 2 






Filing 




07-09-86 








15:04:35 




CHset 




3o-:rcE Line 


IB^ PersoriQi CoaDuter ohSIC CosDiier V2.00 


in 












0030 


00C6 


se: tJurina ccpy 


"vitnaae tor destination reagent data tile u 




0030 


OOCA 




K&n reagent nai>e ior COPY and RENAME 




0030 


00C6 




Reagent nanes are held here as the directory 


76 






is ieing re-nritt 


en 




0030 


00C6 


ent data tiles 


Destination ^ilenaie usEd while copying reag 




0030 


0006 


P.ESSABEi 


n aessage printed at the bottoa of the scree 


20 


0030 


OOCi 


I'.EKUSH,!) Array strings containing the short and Id 








ng fenu naaes 






0030 


0006 


ERRnSBS 


Message printed when any error occurs 




0030 


0006 


zm 

ror 


Appended to ERRHSGS to indicate nature o^ er 


25 


0030 


0006 


m $PAGE 





Reagent Jet Printer PAGE 3 

Reaaent Filing 07-09-B6 

15:04:35 

Offset Data So^^'ce Line IB:^ Personal Coaouter BASIC Coioiler V2.00 

0030 0004 SUB REAsEST.FILE STATIC 

0047 0C04 

0047 0006 &PS11B IKITIALIIE 

004D 0006 TYPE! = 0 

0054 MOB 

0054 0008 mil TYPE! <> 3 

005F 0008 A* = 

0069 OOOC WHILE Al = " 

007B OOOC A$ * mm 

00B2 ooc: 

0085 OOOC IF AJ = CHft$(0) * CHRJ1751 THEN TYPEl = 1: 

'leH arrow 

^5 OOAA OOOC IF At = CHRKO) + CHR$(771 THEN TYPEI ^ 2: 

'right arrow 

OCCF OOOC IF At = CHRS(131 THEN TYPEI = 3: 

'<cr> to execute selection 

00E9 OOOC 

50 00E9 OOOC ON TYPEI 60SUB Tl, T2, T3 

00F8 OOOC MEHD 

OOFC OOOC 

OOFC OvOC EIIT SUB 

0100 OOOC 

55 0100 OOOC REH tPME 
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20 



25 



30 
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40 



45 



50 



55 



Reagent iet Printer ^ 
Reaqent Filino 07-0?-36 

15:0A:35 

Offset Data Source Line 11^ Perscnai Coacuter BASIC Coflpiler V2.00 



0100 


oocc 


5Uo-"G'JTi?:i5 F:?£ THIS r.GDULE 


0100 


OGOC 






0100 


mi 


Tl: 


'ift't arrow 


0105 


woe 




T7PE1 = 0 


OlOC 


oo&c 




IF nESU: = 0 THEV RET'JRK 


OllB 


000€ 




DIFFl = -I 


0122 


0010 






0128 


0010 




RETURN 


012C 


0010 






012: 


0010 


T2s 


Vioht arroi 


0131 


0010 




HPEI = 0 


0133 


octo 




IF Oi;: = ^ THEN RETJRN 


0147 


0010 




DIFFl = 1 


OlAE 


0010 




KsUB *4Eil.ftEHli 


0154 


0010 




RETURH 


0158 


0010 






0158 


0010 


H: 


'<cr> (execute selected aenu itei) 


015D 


0010 




LOCATE :5,i:PRIKT BFhCES179); 


017A 


0010 




ON n£NU: + 1 B0SU3 T:;, T3B, T3C, T3D, T3E 


OIBF 


0010 




S03UB nwM 


0195 


0010 




RETURJt 


0199 


0010 






0199 


0010 


Pin iPA6E 
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Reaqent Jet Printer PASE 5 

Reagent Filmo 07-09-86 

15:04:35 

Offset Data Source Line IB?^ Personal Coiputer BASIC Coepiler V2.00 

T3A: *dB]ete reagent 

type: = 0 

mzii = 'Delete* 
GOSUB GET. SOURCE 

IF LENlREANAhE$l = 0 THEN RETURN 

IF REhN'hKEI = SELNAHEJ THEN FLABX = 4: GOSUB SHOW. ERROR: 

RETURN 

GOSUB SEARCH 

IF pointer: = 0 THEN FLABl = l:6DSUB SHOW. ERROR: RETURN 
MES5A6EJ = •Deleting ' ♦ REANAHEl + • Please Wait.. 

■ 

■ 

BOSUB nESSAGE.ON 

'rewrite directory deleting REANAHE$ as indicat 

ed by POINTERI 

KILL •READIR.OLD* 
NAnE 'READIR.RJP' AS •READIR.OLD' 
OPEN 'READIR.OLD* FOR INPUT AS II 
OPEN 'READIR.RJP' FOR OUTPUT AS 12 

INPUT tl, REANUn: 
REANUHI = REANUHl - 1 
WRITE I2,REANUKI 

IF REANUfi: = 0 THEN SOTO DIR. DONE 
FOR II = I TO REANUn: ♦ 1 
INPUT ll,REhK.;R£$ 

IF II <> PCIMER: then print l2,REANAnE$ 

NEIT II 

DIR. DONE: 

CLOSE tl: CLOSE i2 

'reiove data Hie 
FILEf = RlGHTJ(STRJlP0IJiTER:),LEN(3TRJ(P0INTEHIl)-l) ♦ 
•REA.RJP* 

KILL FILEi 

'renaie retaining data files to laintain linked 
list to directory 

WHILE InEANUn: + I) > POINTER! 

SFILEI = RI6HTnSTRIIP0INTERZ+l),LEN(STRt (POINT 
ERMD-l) + 'REA.RJP* 

DFILE$ = R1BHT$(STRI (POINTER:) ,LEN(STR$ (POINTER 
X))-n + 'REA.RJP' 

NAHE SFILEJ AS DFILEi 

pointer: = pointer: * i 

WEND 

BOSUB nESSAGE.OFF 
REANAHEI = SELNAHEI 
BOSUB T3DA 
BOSUB DISP.OIR 





00 10 


019E 


0010 


01A5 


0010 


OlAF 


0014 


01B5 


OOIA 


01C7 


OOIB 


01E7 


OOIE 


OlED 


OOIE 


0209 


0020 


0209 


0020 


0220 


0024 


022b 


0024 


022t 


0024 


022i 


0024 


022D 


0024 


0237 


0024 


02AB 


0024 


025A 


0024 


025A 


0024 


026C 


0026 


0275 


0026 


02B6 


002& 


02B6 


0026 


0295 


0026 


02A4 


0028 


02B6 


0026 


02D3 


002A 


02E5 


002A 


02E5 


002A 


02EA 


002A 


02FB 


002A 


02FB 


002A 


02FB 


002A 


one 


002E 


0323 


002E 


0323 


002E 


0323 


002E 


0333 


002E 


0359 


0032 


037D 


0036 


03B7 


0036 


0390 


0036 


0393 


0036 


0393 


0036 


0399 


0036 


03A3 


0036 


03A9 


0036 
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Rsacsnt Jet Printer 

Reagent Filing 

DHset Data Source Line 

03hF 0036 RETURN 

03B3 0036 

03B3 0036 REK $PA5E 



PAGE 6 
07-09-36 
15:04:35 

IBfl Personal CoiDuter BASIC Coipiler V2.00 
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Reagent Jet Printer PASE 7 

Reaaent Filing 07-09-88 

15:04:35 

Offset Data Source Line Personal Coiputer BASIC Cospiler V2.00 



03B3 


0036 


Tj3i 'copy reagent 


03B8 


0036 


TYPEI = 0 


03BF 


0036 


IF REANUnX = 80 THEN FLA6I = 3:B0SUB SHOW. ERROR: RETURN 


03DB 


0036 


FUNCTJ ^ "Copy* 


03E5 


0036 


GOSUB SET.SO'JRCE 


03tB 


0036 


IF LENCREANAHEil = 0 THEN RETURN 


03F0 


0036 


BOSUB SEARCH 


0403 


0036 


IF pointer: = 0 THEN FLA6X = l:G05UB SHOW. ERROR: RETURN 


041F 


0036 




041F 


0036 


GOSUB BET.NEU.NAHE 


0425 


0036 


IF LENINEWHAftEt) = 0 THEN RETURN 


0437 


003A 


IF LEN(NEWMAnE$l > 15 THEN FLA6I = 2:B0SUB 5H0W.ERR0R:R 






ETURN 


0457 


003A 




0457 


003A 


MEBSA6EJ = 'Copying ' > REANAKES * " to • + NEHNAMEJ + 






• Please wait.,* 


047C 


003A 


. BGSUB RE5SAGE.0N 


0482 


003A 




0482 


003A 


'add new naie at end of directory 


0482 


003A 


KILL •READIR.QLD" 


0439 


003A 


NAME 'READIR.RJP' AS •REAOIR.OLD' 


0493 


O03A 


OPEN •READIR.DLD' FOR INPUT AS 11 


04A4 


003A 


OPEN 'READIR.RJP' FOR OUTPUT AS 12 


om 


003A 




04B6. 


003A 


INPUT 11, REANUMl 


04C8 


003A 


REANUMl = REANU«1 ♦ I 


04D1 


003A 


WRITE l2,REANUni 


04E2 


003A 




04£2 


003A 


FOR 11 = 1 TO REAKUnx - l 


04FI 


003C 


INPUT ll,TE*.Pt 


0503 


0040 


PRINT •2.TE?1P$ 


0513 


0040 


NEXT IX 


0525 


0040 


PRINT •2,NEWfiAnES 


0535 


0040 




0535 


0040 


CLOSE tl:CLOSE 12 


0543 


0040 




0543 


0040 


'create copy of data file 


0543 


0040 


FILEJ = RIBHT$(STR$(PQ1NTERI),LEN{5TR$(P01NTER1))-1) + 






•REA.RJP' 


05i7 


0040 


HEKFILE$ = RI6HT$(STR$(REANUMX),LEH(STR$(REAKUHX)»"l) + 






•REA.R3P' 


05BB 


0044 




058B 


0044 


OPEN FILE$ FOR INPUT AS tl 


059C 


0044 


OPEN NEWFILEJ FOR OUTPUT AS 12 


05AE 


0044 




05AE 


0044 


INPUT 11, TEMP 


05C0 


004B 


WRITE l2JEttP: 'frequency 


05D0 


0048 


INPUT 11, TEMP 


05E2 


0048 


WRITE 12, TEMP: 'pulse width 


05F2 


0048 


INPUT 11, TEMP 


0604 


; 0048 


WRITE 12, TEMP: 'strobe delay 


0614 


0048 


INPUT #l,TEnP 


0626 


0048 


WRITE 52,TEHP: 'nozzle 


0636 


0043 
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Keaaent Jet Frinler PAGE 8 

Reagent Filing 07-09-86 

15:04:35 

OHset Data Source Line IBM Personal Cowuter BASIC Cotpiler V2.00 

25 



30 



35 



0636 


0048 


INPUT njEXPS 




0643 


0048 


PRINT lt2.TEHP$: 


'concentration 


0653 


0048 


INPUT ll.TEBPJ 




066A 


0048 


PRINT l2,TEnPJ: 


'density 


067A 


0048 


INPUT IIJEHPJ 




06BC 


0048 


PRINT l2,TaPJ: 


'viscosity 


069C 


0048 






069C 


004B 


CLOSE tl:CLOSE 12 




06AA 


0043 






06AA 


0048 


6CSUB nE:3fi6E.CFF 




06B0 


0048 


60SUB DISP.DIR 




06B6 


#3 


RETURN 




06BA 


0048 






06BA 


0048 


REH tPAGE 
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Reacent hi Printer PABE 9 

Reageni Filino 07-09-B6 

15:04:35 

70 

Offset Data ^urce Line IBn Personal Coaputer BASIC Coapiler V2.00 

06Bft v04S '3C: 'renaae reagent 

06BF 0043 TYPEI - 0 

06C6 0048 FLiNCT$ ' 'Renaae' 

06D0 0C'4a BOSUB GET. SOURCE 

06D6 0048 IF LENlREANAttESl = 0 THEN RETURN 

06EB 0048 E05UB SEARCH 

OfeEE 0048 IF POINTERI = 0 THEN FLASX = hSOSOB SHOW. EKROR: RETURN 

070A 004& 

070A 0048 BQSUB GET.NEW.NAKE 

0710 0048 IF LENtNEWNAHEJl = 0 THEN RETURN 

0722 004S IF LENINEWNAHEI) > 15 THEN FLABl » 2:60SUB SHOW.ERROR:R 

ETURN 

0742 0048 IF NOfNAHEi = REANANEJ THEN RETURN 

0755 0048 HEBSAGEJ = •Renaaing ' ♦ REANAHEI + " to ' + mmU + 

• Please wait..* 

077A 0048 80SUB HESSABE.ON 

0780 0048 

0730 0048 'renaaing reagent naae in directory 

0780 0048 KILL 'READIR-OLD' 

0787 0048 HAKE 'READIR.RJP' AS •REAOIB.OLD' 

0791 0048 ' OPEN "READIR.OLD* FOR INPUT A3 41 

07A2 0048 OPEN 'READIR.RJP' FOR OUTPUT AS 12 

07B4 0048 

0764 0048 INPUT II, REANUni 

Om 0('48 WRITE l2,REANUni 

0707 0048 

0707 0048 FOR II = I TO REANUn 

07E4 004A INPUT IIJE-FS 

07F6 004A IF U <> POiH:cR; THEN PRINT I2JEMP$ 

0813 004A IF II ' POIK'ER: THEN PRINT I2,NEHNAI1£$ 

0830 004A NEU II 

0842 004A 

0842 004A CLOSE fhCLOSE 12 

''^ 0850 004A 

OB50 004A BOSUB WESSABE.DFF 

085i 0C4A IF REANAKEi = SELNAMES THEN REANAMEJ = NEUNA«E$:GQSUB T 

3DA 

0875 004A BOSUB DISP.DIR 

087B 0C4A RETURN 

087F 004A 

087F 004A R£n SPftBE 



30 



35 



55 
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Reagent Jet Printer r PftBt 10 

Reagen: Filing 07-0«?-e£> 

15:04:35 











•^:-,e It.1 Personal Coaputer BASIC CoEpiler V2.00 


75 


067F 






'rsiect rsaoent for printing 




0B3i 


C04fi 




'uEl ^ 0 














0B95 






5G=JB BET. SOURCE 


20 


0895 






IF LEK'SEAHAWEJl = 0 THEN RETURN 




mz 






:f re^na^e^ = iimm theh return 




OBCO 






saruB T3Cft 




oec6 


004A 




BOSUB BISP.DIR 




OBCC 






RETURK 


25 


OBDO 


:<:U 








08D0 


MA 


T3DAi 






06D5 






K1EU3 SEARCH 




oeDB 


D04A 




IF POl?iTERZ = 0 THEN FLAG! = hSOSUB SHOH. ERROR: RETURN 




08F7 


004A 






30 


0BF7 


004A 


• 


??EB£A5E$ = "Selecting ' + REANAMEJ + * Please «ait. 




090E 


0044 




nESSA6E.CN 




09U 


004A 








09U 


004A 




'change entrys in reagent default file READEF.R 


35 












0914 


004A 




OPEN 'READEF-Rj?' FOR OUTPUT AS 11 




0926 


004A 




FILE^ = RIBHTJ(STRi;FQlNTEftIl,LEN(STR$(POINTERI))-l) ♦ 








'REA.RJP' 




094A 








40 


094A 






PRINT ll,FILEJ 




095A 


0C4A 




PRINT II,REmNA«E« 




096A 


U'U 








096A 






aOSE 11 




0971 


OOiA 




&OSUB rESSASE.GFF 


45 


0977 


004A 




RTTURX 




097B 


0C4A 








097B 


004A 


T3t: 


'etit reagent filing 




0980 


D-04A 




RETURN 




0964 


OOAA 






50 


0984 







BADOmOlNAL ^ 
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Jet rfUvler 


PAGE 11 




Filinq 




07-09-Bi 








15:04:35 




lit a 


Source 


Line IBn Personal Cocouter BASIC Compiler V2.00 




COAA 


SEri^Cn: 




09B9 






fCINTERX = 0 


0990 


D04A 




CFEM 'READIR.RJP* FDR INPUT AS 11 


09AI 


oo;a 




IK'FiJT tl,REANU?lI: ' get nuiber of reagents in direc 


09B3 




tory 


IF REANUMI ' 0 THEN CLGSE lURETURN 


09C9 


oo;a 




TEflPI = 


09D3 


004A 




«KILE (POIKTERX < ^tnUm) AND (REANAhES <> TEMPI) 


09FE 


« ft 




LINE INPUT 11, TEMPI 


OAOE 


Ov4A 




POINTER! = POINTER! + 1 


OAll 


0G4A 




NEND 


Ofil4 


0G4A 




IF REANAKEI <> TEMPS THEN POINTERI = 0 


0A2A 


004A 




CLOSE 41 


0A31 


004A 




RETURN 


0h35 


v04A 






0A35 


0Q4A 


6ET. SOURCE: 


0A3A 


004A 




LOCATE 25,1:CQL0R 15,0:PRIHT 'Enter Reagent Naae to 'FU 






NCT$* 




0A6C 


CK)4A 




LINE INPUT; ",REANAKES 


0A7A 


004A 




LOCATE 25,1:PRINT SPACEn791; 


0A97 


004A 




RETURN 


0A9B 


004A 






0A9B 


004A 


6ET.NEW.HAHE: 


OAAO 


Oa4A 




LOCATE 25,1;C0L0R 15,0;PRINT 'Enter NeN Reagent Nate '; 


0AC6 


004A 




LINE INPUT; ".NEWHANEJ 


0AD4 


004A 




LOCATE 25,l:rRINT SPACE$179); 


OAFl 


004A 




RETURN 


0AF5 


004A 






vnr J 


004A 


CI5P.DIR: 'display reaqe'^t directory in 4 coluans oi 20 r 






&«s 




OAFA 


004A 




'read selected reagent into SELNAMEI 


OAFA 


004A 




OPEN 'REAOEF^RJP' FOR INPUT AS 11 


OBOB 


004A 




INPUT 11, SELNAMEI: 'read and discard data file nai 


OBID 


004A 


e 


INPUT tlfSELHAKEI: 'read and save reaoent naae 


0B2F 


004A 




CLCSE 11 


0636 


C04A 






0B3& 


004A 




OPEN 'READIR.RJP' FOR INPUT AS 11 


0B47 


004A 




INPUT ll,REAKUni:* read nuiber of reagents 


0B59 


004A 




MESSASEI » •Reading Reagent Directory Please Waif 


OBU 


004A 




605UB MESSA6E.0N 


0B69 


004A 




FLAGI - 0 


0B70 


004A 


1 


TEMPI = REANUKI - 1:IF REANUMX < 80 THEN TEMPI = REANUM 


0B86 


004C 




FOR 11 = 0 TO TEMPI 


0B97 


0C4E 




LOCATE (11 MOD 20l*l, (lNT(II/20)»20)+l 


OBCft 


W4E 




PRINT SPACES (18); 


OBDA 


004E 




NEIT II 


OBEC 


004E 






OBEC 


004E 




FOR 11 = 0 TO REANUHI - 1 


OBFA 


0G50 




IN'FUT n,REANAMEI 


OCOC 


0C50 




LOCATE (IZ MOD 20) + l, lINT(U/20) t20)+3 


0C3F 


0050 




PRINT REANAHEI; 


0C4C 


0050 




IF REAHAMEI = SELNAKEJ THEN LOCATE (U «00 20)* 
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Reaoent Jet Printer PAGE 12 

Reaoer.: Filinq 07-09-8o 

15:04:35 

Offset Data Source Line Ir* Fer^onal Ccaouter BASIC Coapiler V2.00 

■,(IKT(I:/'20)420} + 1:PF:KT •4'; 

0C7B 0050 KEIT 11 

OCBO 0050 aDSE tl 

0CB7 OOSO 5GrJ9 nLHSASE.:^ 

OCBD 0050 F£TUF;M 

OCCl ')05C 

OCCl 0050' ISITIALIIE: 

OCCb 0050 DinKEKUt(4,l) 

0CC7 0078 KEK'J$(0,0> = 'Ufilete* 

OCDF 0073 Kth'UJ(0,l) - 'rieMve a reagent file fro» the directory* 

OCFh 0073 K£K-JJ(1,0) = 'Copy' 

0D15 0078 KEKUIil,!) - 'Copy a reagent Ule to a new reagent naie 

0D:E W78 KEVUS(2,0J - 'Renate" 

0D4B 0078 . ntKU*(2*l) - 'FJenaie a reagent file in the directory' 

0Di9 C-078 R£SU$13,01 = 'Select' 

0DB4 0078 «EKUH3,1I - 'Select a reagent file to be printed* 

ODAO 007B KEKU$(4jOl = 'Exit' 

ODBB 0078 nEt:iJI{4,l) - 'Return to the lain lenu' 

0DD7 0078 

0DD7 0079 COLOr? ?,0:CLS 

ODEA 0078 L0C;i7E 21,3 

O0F7 0078 FOR II = I ID 80 

ODFE 0078 PRINT 'D'; 

OEOB 0078 NEH II 

OEIB 0078 

OEIB C078 FOR fZKJl = 0 TO 4 . - 

0E21 0078 EuSUB HEfiU.GFr 

0E:7 0078 «EIT HEKUl 

0E37 0078 

0E37 0078 60SUB DISP.DIR 

0E3D 0078 IF FUSI ) 0 THEN SQEUB SHQU. ERROR 

0E4E 0078 REKUI = 4 

0E55 0078 6DSUB ^ENU.GK 

0E5B 0078 

0E5B 0073 KTURK 

0E5F 0078 

0E5F 0078 KEM.KEK/: 

OEM 0078 S05UB «£HU.OFF 

0E6A 007B ftcKin = REWII ♦ DIFFI 

0E76 0078 SOSUB FXVJ.CX 

0E7C 007B RETURX 

OEBO 0078 

OEBO 0078 KEKU.ON: 

0ES5 0078 LOCATE 22, (REK^JHIOIMB 

0E9C 0078 COLOR 0,7 

OEAB 0078 PRIKT nEWJlKVUZ.O); 

0EC6 0078 LOCATE 25,40-LE»{ttVU$ cr.LNUZ,!) )/2 

OEFA 0078 COLOR 7,0 

0F06 0078 PRINT nEKU$(«£NUl,ll; 

0F25 0078 RETURH 

0F2? 0078 

0F29 0078 RENU.GFF: 

0F2E 0078 LOCATE 22, (KEKUZUOl+lB 
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f;s25sr!t Jet Printer PAGE 13 

Reagent Filing 07-09-56 

15:04:35 





uttsei 


Udia 


bOUice Line ion f^er sunai loboulci onDiu uuwmici 






AA7Q 






Ur ol 


Ari7Q 

UU/0 


ZDTL'T nrvit /Kruin c\\* 




CiCLZ 

Urbr 


Ar*7D 
UU/0 


tULH 1 1 i« J ^u*Ltr( inLnu* iriL.Tuii, xi i f i. 




Orfti 


0078 


rn IN 1 brMLtJ iLcN incNU* intnUi, in i] 


10 


OFCB 


007B 


RE » URN 




OFCC 


0078 






OFCC 


007B 


SHOW. ERROR: 




OFDl 


0078 


ON FLAGI BOSUB ERl, ER2, ER3| ER4 




0FE2 


0078 


ERR?iSb$ = ERRS + Strike any key.. 


15 


0FF2 


0080 


LOCATE 24,40-LEHttRrtnSGI)/2 




lOM 


0080 


COLOR 13,0 




1020 


OuoO 


rnlNi tRKnSbf; 




102D 


A AOA 

OOBO 


At - > ■ 




lOo7 


A AO A 

0080 


LiuTt r ^ — • 1 
WHILl fif = 


20 


lu-tO 


A AP A 

OOBO 


Al = Inf.cTJ 




1050 


0080 


WEND 




1 ACT 

1053 


OOBO 


bUSUB ntbSAbt.UFF 




1059 


AAOA 

OOBO 


RcTUKN 




105D 


0080 




25 


105D 


0080 


ERl: 




1062 


0080 


tp.Rt = REAKhttEi + Not Found in the Directory 




1072 


0080 


RETURN 




1076 


OOBO 






1076 


0080 


ER2: 


30 


107B 


OOBO 


ERRS = 'Reagent Naie is too Long (15 characters ia 




10B5 


OOBO 


RETURN 




1 089 - 


0080 






1089 


OOBO 


ER3; 




108E 


0080 


ERrS = •Directory is Fall 130 reagents lax.l* 


35 


1098 


OOBO 


RETURN 




109C 


OOBO 






109C 


OOBO 


ER4: 




lOAl 


0060 


ERRS = "Cannot nodity SELECTd reagent Na»e 




lOAB 


0060 


RETURN 


40 


I OAF 


OOBO 






lOAF 


0080 


MESSAGE. CN: 




1 AB t 

10B4 


DOdO 


1 nr^Tr to i cufwrcc^erti / '^irni no ti a.ddtut 
LULfttt 24,^8 - LtHinLSSfibbJ) / ilLULDR ll,DlrRlf(T 












lOtr 


0089 


&CTItOU 

Kt tUnn 


45 


f ACT 


UvoU 






10F3 


OOBO 






10F3 


0080 


HESSftSE.OFF: 




lOFS 


OOBO 


LOCATE 24,1:CDLDR 15,0;PRINT SPACE$(79); 




1121 


0080 


RETURN 


50 


1125 


0080 






1125 


0080 


END SUB 




il2C 


0080 






16C9 


OOBO 




55 


50426 Bytes Available 




45713 Bytes Free 



0 Warning Error (sJ 
0 Severe Error (s) 
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Reagent Jel Printer P^BE 1 

Pattern Filing 07-07-B6 

Offset Data Source Line IBM Personal Coaputer BASIC Cocpiler V2.00 

5 

0030 0006 RE?i STITuE'/Reaccnt Jei Printer tSUBTlTLE; 'Pattern Filing' 
0030 vCCo '^CjULE - •PATFILE' File Handiing for patterns 
0030 OO06 

0030 0006 'AUTKOR - ?i. n. Enevold 
70 0030 0006 

0030 0006 'CC-YRJoHT (C) 1935 ABBOTT LAEjRATCRIES 
0030 CKJOi 

0030 0006 Rr/ISIOH - 1.0 02-12-B6 NAE Creation of initial code 
0030 OO06 

0030 00C6 'SYSTEM - This code can only be coapiled by the BASCDM 
0030 0006 • COKPILER, it Kill not run under the INTERPRETER!! 

0030 0006 

0030 0006 'uESCRlPTIOS: 

0030 0006 ' This todule allow file handling for patterns. When inv 
Died, it dispUys 

0030 OO06 ' the current contents of the pattefn directory in 4 colu 

ins of 20 entries 

0030 0006 ' each. The pattern shich is currently selected for prin 
ting is larked by 

0030 0006 ' an asterisk to the left of the pattern naie. After the 
directory is listed 

0030 0006 ' the user is presented «ith 5 lenu choices. The left an 

d right arrows are 

0030 0006 ' used to highlight lenu iteis and the enter key is used 

3^ to invoke action. 

0030 0006 ' The lenu choices and t^elr actions are: 

0030 0006 

0030 0006 ' DELETE - reiote i pattern hie froi the directo 

n 

0030 0006 ' COPY - Ccoy a pattern tile to a new pattern n 

aie, saving the old pattern 

0030 0006 ' REHAHE - Change the naie of the pattern without 

changing the pattern itself 

0030 0006 ' SELECT - Selct a pattern for printing 

0030 0006 • EXIT - Return to the lain aenu 
0030 0006 

0030 0006 'DATA DICTIONARY 

0030 0006 ' TYFEI Which tyoe of valid key was pushed 

0030 0006 ' flENlil Which lenu itei is being pointer to (0-4) 

0030 0006 • DIFFI Distance to lOve HENUX at left or right arro 
« 

0030 0C06 • FLASl Error type 0-4 

0030 0006 ' POINTERI Position of PATNAHEI in directory list 

0030 0006 ' PATHi;ni Nuioer of pattern nases in directory 
list 

0030 OO06 * ELNliMI Nutber of elsaents in a pattern Hie 

0030 0006 • TEHPI Storage for integers during pattern copy 

0030 0006 ' II Counter used during pattern copy 

0030 0006 * JI Counter used during pattern copy 

0030 0006 ' M Hisc. input string 

0030 0006 • FUKCT^ Printed at bottoi of screen during proipt fo 
r pattern nate 

0030 0006 PATHAMES Pattern naie currently being worked on 

0030 0006 ' SELHAflES Pattern naae currently selected for printing 

70 



35 



40 



45 



50 



55 
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Reaqent 


Jet Printer PA6E 2 


Pattern Filino 


07-09-86 






15:11:46 


onset 




So-rce Line lir. FerEonai Ccaouter BASIC Cotpiler V2.00 


0030 


0006 


FILES FilcHiae pattern data Hie 


0030 


0006 


£:ILE$ Filenaae icr source pattern data file used d 






urino copy 






IrllZt Filenait tor destination pattern data file u 






55d uunrq copy 


0030 


OCGa 


KEKMANES New pattern naie for COPY and RENAME 


0030 


O0Q6 


TEMPS Pattern naies are held here as the directory 






IS beina re-written 


0030 




NE^iFILEl Destination filenaoe used while copying patt 






erfl data files 


0030 


0006 


r.ESSAGES A eessage printed at the bottoi of the scree 


0030 


0006 


MENU$(4,1) Array of strings containing the short and lo 






ng tenu naies 


0030 


0O06 


ERRKSBJ Message printed Nhen any error occurs 


0030 


0006 


ERRi Appended to ERRKSGI to indicate nature of er 






ror 


0030 


0006 


TEKP Storage of real variables while copying patt 






ern data files 


0030 


0DC6 


RE^ SPAGE 


Reaaent Jet Printer ?"SE 3 


Pattern Filinq 


07-09-86 






15:11:46 


OHset 


Data 


Source Line IBM Personal Coaouter BASIC Coipiler V2.00 


0030 


0006 


SDB PATTERN. FILE STATIC 


0047 


0006 




0047 


0006 


GOSUB INITIALIZE 


' 004D 


0006 


TYPE! = 0 


0054 


0008 




0054 


OOOB 


WHILE TYPEI <> 3 


005F 


0008 


At = 


0069 


OOOC 


WHILE A$ » 


0076 


OOOC 


Ai 5 IHKEYS 


0082 


OOOC 


kiEND 


O0B5 


OOOC 


IF A> = CHRHO) + CHR$(751 THEN TYPEI = 1: 






'left arrow 


OOAA 


OOOC 


IF A$ = CHR$(0) ♦ CHR$1771 THEN TYPEI = 2: 






*right arrow 


OOCF 


OOOC 


IF A$ = CHRi(13) THEN TYPEI = 3: 






*<cr> to execute selection 


00E9 


OOOC 




O0E9 


OOOC 


ON TYPEI GOSUB Tl, T2, T3 


OOFB 


OOOC 


WEKD 


OCFC 


OOOC 




OOFC 


OOOC 


EXIT SUB 


0100 


OOOC 




0100 


OOOC 


REM SPAGE 
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Reacent Jet Prir.tgr PAGE 4 

Pattern Filing 07-09-86 

I5:ll:<6 

OHset Ddti Source Line IBM Personal Cosouter BASIC Coioiler V2.00 



0100 




•luiuo SUB-FOUTIKES Fun THIS MODULE 


0100 








0100 


oooc 


Tl: 


'le^t arrow 


0105 


oooc 




nPEl = 0 


OlOC 


mz 




IF mUl = 0 THEN RETURN 


OllB 


OOOE 




DIFFZ = -I 


0122 


OCIO 




6CSUB NEW.KENU 


012B 


0010 




RETURN 


012C 


0010 






012C 


0010 


T2: 


'right arrow 


0131 


0010 




TYFEl = 0 ' 


013B 


0010 




IF mm = 4 TKEN RETURN 


0147 


OOlO 




DIFFI = 1 


014E 


0010 




605U6 m.nm 


0154 


0010 




RETURN 


0158 


0010 






015B 


0010 


T3: 


•<cr> (execute selected lenu itei) 


015D 


0010 




LOCATE 25,1:PRINT SPACE$(79): 


017A 


0010 




ON HEf^UI + I 6GSUB T3A, T3B, T3C, T3D, T3E 


013F 


0010 




BQSUB HENU.QN 


0195 


WIO 




RETURN 


0199 


0010 






0199 


0010 


REA $PA6E 
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Reagent iet rrinter PA5E 5 

Pattern Filing 07-09-et 

15:11:46 

OHsBt Data zz^rzE Line IB?. Fersonai CotDuter BASIC CojDiler V2.00 

0199 0010 T:;; drlfte pattern 

019E MIO 'yrn = 0 

OlftS 0010 FLS:n ^ 'Delete' 

OlAF 0014 '::Zm olT.SGURCE 

012S 0014 :f iEN(PA7s:;r.En = o thek return 

01C7 OGIB IF PAT'^mi = EELhW?£$ THEK FLABI = A:6DSUB SHOil. ERROR: 

01E7 OOIE cDSUB SEARCH 

OlED OOIE IF PCIMTEf.I = 0 THEN FLAGX = UGOSUB SKM. ERROR: RETURN 

02C9 0020 

0209 O02O minoU - 'Deletinq * + PATNAHE$ + * Please Wait,. 

0220 0024 BGSUB KES3A8E.0JI 

0226 002A 

0226 0024 'rwrite directory deleting PATUAWEi as indicat 

ed by FCIXTERI 

0226 0024 KILL •PATOIR.OLD' 

022D 0024 KA«E 'PATDIR.RJP' AS 'PATDIR.OLD' 

0237 0024 OPEN 'PATOIR-OLD' FOR INPUT A3 II 

024B 0024 OPEN 'PATDIR.RJP' FOR OUTPUT AS 12 

025A 0024 

025A 0024 IKPUT It, PATKUHZ 

026C 0026 PATWUn: = PATMUni - I 

0275 0026 WITE •2,PATMUni 

02B6 0026 

02B6 0026 IF PATKU« = 0 thEN SOTO DIR. DONE 

0295 -0026 FOR 12 = I TO PATMUKl * I 

02A4 0028 INPUT ll,?ATNAf1EJ 

02P6 0023 IF II O POINTERZ THEN PRINT t2,PATNAnE$ 

02D3 002A mi II 

02E5 002A 

02E5 002A DJR.DU^Ci 

02EA 002A CICSE U: CLOSE 12 

02FB 002/J 

02F8 002A 'reiove data file 

02FB 002A FILES = RIBHTIlSTRS(PDINTERI),LEN(STR$t?OINT£RI))-l) + 

'FAT.RJ?' 

03IC 002E >:ILL FILE* 

0323 002E 

0323 002E 'renaie retaining data Hies to laintain linked 

list Kith directory 

0323 002E KHILE (PATKUW ♦ 1) > POINTERl 

0333 002£ SFILES = RIBHT»(STR$(POINTERI+l) ,LENiSTRI(POINT 

ERl+n>-n ♦ 'PAT.RJP' 

0359 0032 CPILEI = RISHT*(STR$(POINTERX) ,LEN(STR$(POINTER 
♦ 'PAT.fiJP* 

037D 003^ NAME SFILES AS DFILEI 

0387 0036 POINTERl = POINTER! + 1 

039C 0036 iiEND 

0393 0036 

0393 0036 SOSUB nESSABE.DFF 

0399 0026 PATNAflEI = SELNAKEI 

03A3 0036 SOSUB T3DA 

03A9 0036 SOSUB DISP.DIR 
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Reaoent ;et Printer ^ 
Pattern Filing 07-09-B6 

15:U:A6 

onset Data =curce Lire lfi« Personal Coaauter BfiSIC Coaciier V2.00 



03AF 0036 RETuRH 
03BJ 0036 

03B3 CC3c RLn $Pfi5£ 
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Reagent Jst Pri-.ter PASE 7 

Pattern Filuq 07-09-56 

onset Dati Source Lir.e Ic.l Personal Cccputer BASIC Coeoiler V2.00 



03B3 


0C36 


T3B; 'ispy pai:ern 


03Be 


003^ 


TfPEl = 0 


03BF 


003b 


IF PfiTSUr.X = 80 THEK FLABI = 3:G0SUB SHOW, ERROR: RETURN 


03DE 


0036 


FliNCTi = 'Copy* 


03E5 


mi 


BCHUB EHT. SOURCE 


03EB 


0036 


IF lEMlFATKArtEJ] = 0 THEN RETURN 


03Fj 


C'036 


6CSUB SEARCH 


0403 


0036 


IF PQINTERI = 0 THEN FLASI = UGCSUB SHOW.ERROR: RETURN 


041F 


mh 




041F 


v&3i 


eOS'JB 6ET.Kc*4.NAME 


0425 


0036 


IF LEH{NEWi;AttES) = 0 THEN RETURN 


0437 


053A 


IF L£NiN£'(sHAr.E$) > 15 THEN FLAG! = 2:E0SUB SHOH.ERRORiR 






ETuR« 


0«7 


003A 




0457 


003A 


KE5SfiSE$ = •Copying ' ♦ PATNAKES + • to ' + NEWNAHEI + 






' Please wait..* 


047C 


0C3A 


GC'SLIB MESSAGE. GN 


04B2 


003A 




04S2 


0O3A 


•add mm^J at end directory 


0Aa2 


W3A 


nil 'PATDIR-OLD' 


0489 


W3A 


NAnE •PATDIR.RJF* AS •PATDIR.CLD' 


0493 


m;a 


OPEN •PATOIR.CLu' FOR INPUT AS 11 


04A4 


C03A 


OPEN 'FATDlR.nJP' FOR OUTPUT AS 12 


04B6 


003A 




04B6 


D03A 


INPUT tl, PATNUnX 


04C8 


W)3A 


FATVjnX = PATK'jn; ♦ I 


04D1 


0G3A 


WITE l2,?ATWljn: 


04E2 


003A 




04E2 


003A 


FOR II = I TC FATMuai - 1 


04F1 


0C3C 


INPUT llJErtPS 


0503 


OO40 


f?.in: i:,:EnF$ 


0513 


0040 




0525 


0040 


PRINT l2,XEMKMnEf 


0535 


OOW 




0535 


0040 


CILSE ll:CLCSE 12 


0543 


0040 




0543 


0040 


'create copy of pattern data file 


0543 


0040 


FIIE$ = RISHT$iSTRI(POINTERX),LEN(STRi(POINTERZ))-l) ♦ 






■PAT.RJP* 


05i7 


00 4C 


lfEHFll£$ = RISHT$(STR$(PATMU«X),LEN(STRI(PATNUI1X)I-1) + 






•PAT.WP* 


058B 


0044 




05BB 


0044 


0?£K F11E$ FDR INPUT AS 11 


059C 


0044 


OPEX KEWFILEI FOR OUTPUT AS 12 


05AE 


0044 




05AE 


0044 


INPUT lUELOX 


05CO 


0046 


itf^ITE l2,ELKUni 


05D1 


0046 




05D1 


0046 


FOR IX ^ I TO 4 


0SD8 


0(146 


INPUT tlJEftP 


05EA 


uG4A 


iiRlTE t2JE«P 


05FA 


004A 


NEXT IX 


O&OA 


004A 




060A 


004A 


FOR II = I TO ELNUni 
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Raagent Jet Printer ' PAGE 8 

Fattern Filino 07-09-B6 

15:11:46 

Offset Data Source Line 1B« Personal Coioater BASIC Conpiler V2.00 

0tl7 OOAC FCR n = I TO 6 

061E OOAC INPUT ftlJEMPX 

0630 004E HRITE I2,TE«PI 
0641 004E mi Jl 

0651 0050 NEXT II 

0663 0050 

0663 0050 CLOSE ll:CLO£E 12 

0671 0050 

0671 0050 SOSUB KESSftSE.OFF 

0677 0050 B05UB OISP.DIR 

067D 0050 RETURN 

0681 0050 

0631 0050 T3C: 'renaie pattern 
0686 0050 TYPE! = 0 

068D 0050 FUNCTS = •Renaie* 

0697 0050 60SUB BET. SOURCE 

069D 0050 IF LENtPATNAHEn = 0 THEN RETURN 

06AF 0050 60SUB SEARCH 

06B5 0050 IF POINTER! = 0 THEN FLAGI » l:G03UB SHOW. ERROR: RETURN 

06D1 0050 

06DI 0050 60SUB SET.NEK.NAnE 

06D7 0050 IF LEN(NEWNAr.EJ) = 0 THEN RETURN 

06E? 0050 IF LENlNEUNAnEil ) 15 THEN FLABI = 2:B0SUB SKQW.ERROR:R 
ETURN 

0709 0050 IF NENNAHEJ = PATNAKES THEN RETURN 

07iC 0050 

071C 0050 MESSABEi = •Renaiing ' ♦ PATKA.nES ♦ * to • + NEWNAKES + 

■ Please wait..* 

0741 0050 60SUB P£5S«S£.:n 

0747 0050 

0747 0050 'change pattern naie in directory replacing PAT 

NAnEI Mith NEiHAnEf 

0747 0050 KILL 'FATDIR.OLD' 

074E 0050 KANE •PATDIR.RJP' AS •PATDIR.DLD' 

0758 0050 OPEN 'PATDIR.GLO' FOR INPUT AS II 

0769 0050 CPEN 'PATDIR.RJP* FOR OUTPUT AS 12 

077B 0050 

077B 0050 INPUT 11, PATHUBl 

078D 0050 NRITE I2,PATNU«1 

079E 0050 

079E 0050 FOR II = 1 TO PATNUM 

07AB 0052 INPUT ll,TERP$ 

07BD 0052 IF IX O POINTER! THEN PRINT #2JEHPf 

07DA 0OS2 IF IZ = POINTER! THEN PRINT l2,NENNAnE$ 

07F7 0052 NEXT IZ 

0809 0052 

0809 0052 CLOSE lUCLOSE 12 
0817 0052 

0817 0052 GOSUB MESSAGE. OFF 

08 ID 0052 

081D 0052 'select new pattern na»e \i necessary 

0810 0052 IF ?ATNA«£J = SELNAflEJ THEN PATOEJ = NEHNAMEI: GOSUB T 

3DA 

083C. 0052 BOSUB OISP.DIR 
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Reaqer.: Jet PrintEr PAGE 9 

Pattern riiing 07-09-86 

15:11:46 

OHss: l-iti Hc'jrce Line lE.n Personal Coaouter BASIC Coioiler V2,00 

0B42 Oi-S: RETuRH 

0846 0052 

0846 0052 fpifoE 



Reagent Jet Printer PfiGE 10 


Pattern Filing 


07-09-86 






15:11:46 


Offset 


Data 


Source Line I£?l Personal Coiputer BASIC Coooiler V2.00 


0846 


0052 


T3D: 'select pattern for printing 


OEAB 


0052 


TYPE! = 0 


0852 


0052 


FUNCT* = 'Select' 


0B5C 


0052 


6QSUB GET. SOURCE 


0862 


0052 


IF L£N(PATNAKE$) = 0 THEN RETURN 


0874 


0052 


IF PATNAflE^ = SELNAREi THEN RETURN 


0887 


0052 


eOSUB T3DA 


0881) 


0052 


60SUB DISP.DIR 


0893 


0052 


RETURN 


0897 


0052 




0897 


0052 


T3DA: 


089C 


0052 


B0SU3 SEARCH 


06A2 


0052 


IF POINTER! = 0 THEN FLASX « IcGOSUB SHOW. ERROR: RETURN 


08BE 


0052 




OooE 


0052 


KE5SASE* = 'Selecting ' + PATNAMEI + ' Please Wait. 

■ 


0805 


0052 


• « 

eOSUB nES5A6E.0N 


0BD6 


0052 




OSDB 


0052 


'change entrys in pattern default file PATDEF.R 






JP 


OBDB 


0052 


OPEN 'FATDEF.RJP* FOR OUTPUT AS 11 


OBED 


0052 


FILES = RIGHTI{STR$(P01NTERI1,LEN(STR$(P0INTER:))-1) + 






•PAT.RJP' 


0911 


0052 




0911 


0052 


PRINT ll,FILEI 


0921 


0052 


PRINT ll^PATKAflES 


0931 


0052 




0931 


0052 


CLOSE 11 


0938 


0052 


BOSUB nESSAGE.CFr 


093E 


0052 


RETURN 


0942 


0052 




0942 


0052 


T3E: 'exit pattern filing 


0947 


0052 


RETURN 


094B 


0052 




094B 


0052 


m $PA6E 



0 268 237 



Reagent 


Jet Printer 


PAGE 11 


Pattern 


Filing 




07-09-B6 






15:11:46 


Offset 


Datd 


Source 


Lir.E IBM Personal Cocputer BASIC Cofloiler V2.00 


09^B 


0C52 


SEARCH; 




0950 


W52 




POINTER! = 0 


0957 






CPEh -PATDIR.RJP' FOR INPUT AS 11 


0948 


0052 




IKPUT tl,PATm:' get nuaber of patterns in direc 






lory 




097A 


0052 




IF PATNUnZ = 0 THEN CLOSE ll:RETURN 


0990 


0052 




TEMPI ' 


099ft 


0052 




rniLE IPOIWTERZ < PATNUMIl AND (PATNA«E$ <> TEMPI) 


09C2 


0052 




LINE INPUT ll,TEnP$ 


09CF 


0052 




PQINTERI = POINTERl + 1 


09D8 


0052 




«END 


09DB 


0052 




IF PATNAHEJ (> TEMPI THEN PQINTERI = 0 


09F1 


0052 




CLOSE 11 


09FB 


0052 




RETURN 


09FC 


0052 






09FC 


0052 


BcT.SQUSCE: 


OAOl 


0052 




LOCATE 25,l:COL0R 15,0:PRINT 'Enter Pattern Nate to 'FU 










0A33 


0052 




LINE INPUT; •%PftTNAHE$ 


0A41 


0052 




LOCATE 25J:FR1NT SPACES (79); 


OfiSE 


0052 




RETURN 


0A&2 


0052 






mi 


0052 


GET.VEW.NAPIE: 


mi 


0052 




LOCATE 25,1: COLOR 15,0:PRINT 'Enter New Pattern Nate 


0A8D 


0052 




LINE INPUT; •■,KEW«AME$ 


0A9B 


0052 




LOCATE 25,1:PR:s; 5rACEI[791; 


0AB8 


0052 




RETURN 


OABC 


0052 






0A6C 


0052 


DISP.OIR: 'dispUf directory in 4 colutns, 20 rows 


OACl 


0052 




'read ce«aiilt pattern naw into SELNkMEJ 


OACl 


0052 




OPEN -PATDEF.R:?' FDR INPUT A5 11 


0AD2 


0052 




INPUT tl,SELKAME$: 'discaro data file naie 


0AE4 


0052 




INPUT ♦IjSELSAREI 


OAF& 


0052 




CLOSE 11 


OAFD 


0052 






OAFD 


0052 




CPEH rPATDIR.RJP' FOR INPUT AS 11 


OBOE 


fill'.'' 




IKPUT I1,FATNI;m::' read nutber of patterns 




0052 






0B20 


0052 




HESSASEI = 'Reading Pattern Directory Please Haif 


0B2A 


00^2 




BOSUB RESSABE.ON 


0B30 


0C52 




aASl = 0 


0B37 


0052 




TEMPI = PATNUMZ - 1:1F PATNUMI < 80 THEN TEMPI = PATNUH 


0652 


C052 


Z 


FOR 11 = 0 TO TEMPI 


OBSE 


0054 




LOCATE ill MOD 20)+l, (INT(lI/20}»20)+l 


0B91 


0054 




PRINT SPACE! (181; 


06AI 


0054 




NEXT 11 


0BB3 


005A 






0BB3 


0054 




FOR II = 0 TO PATNUMI - I 


OBCl 


005& 




INPUT lll,PATNAM£* 


08D3 


0056 




LOCATE (II .100 20) + l,(INT(II/201*201+3 


0C0& 


00S6 




PRINT PATNAMEI; 


0C13 


0056 




IF PATNAMEI = SELNAMEi THEN LOCATE (II MOD 20)+ 



l,(lNT(II/20)t20)+l:PRINT "f; 
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Reaqent Jet rrintsr PAGE 12 

Patterr. Filing 07-09-B6 

15:11:46 

Offset Data Source Line lEM Personal Coftoucer BASIC Cocpiler V2.00 







Sell U 


0C77 




CLD3E 11 


0C7E 


OOU 


50SUB HESSASE.OFF 


0C84 


0056 


RETURN 


OCBB 


005i 




0C5E 


OCSL 


^KHIALIZE: 


OCBD 




flEHl]$(4,l) 


0C6E 


om 


nENuJ(0,0l = •Delete* 




007E 


HENul(0,ll = "Reiove a pattern file froB the directory' 


OCCl 


OCTc 


MEHUStUOI = 'Copy* 


OCDC 


M7E 


RENUf (1,11 = "Copy *a pattern file to a new pattern naie 


0CF5 


007E 


rENl)$(2,0l = "Renaie" 


0012 


007E 


KENU$(2,1) = 'Renaee a pattern file in the directory' 


0D30 


007£ 


nEHU$(3,0) = 'Selecf _ 


0D4B 


007E 


f.ENUtlS,!) = 'Select a pattern file to be printed' 


0D&7 


0071 


nENU$l4,0) = 'Exit' 


0D82 


007E 


ftENllH4,l) = 'Return to the tain lenu' 


0D9E 


007E 




0D9E 


007E 


COLOR 9,0:CLS 


GOBI 


007E 


LOCATE 21,1 


ODBE 


W7i 


FOR 11 = I TO BO 


0DC5 


007E 


PRIHT '0'; 


0DD2 


007E 


NEXT II 


0DE2 


007E 




0DE2 


007E 


FOR (1EKUI = 0 TO 4 , 


ODES 


007E 


&QSUB rENU.OFF 


ODEE 


C07E 


NEH nENUl 


ODFE 


007E 




ODFE 


0C7E 


BOSDB DISP.DIR 


0E04 


007E 


IF FLAGI > 0 TKEK 60SUB SHGU.ERROR 


0E15 


007E 


flENUI = 4 


OEIC 


007E 


GQSUB HENU.ON 


0E22 


007E 




0E22 


007E 


RETURN 


0E2& 


007E 




0E2& 


007E 


KEM.KEKU: 


oe:b 


007E 


BOSUB nENU.CFF 


0E31 


007E 


r,EMUl = nENUI ♦ OIFFl 


0E3D 


007E 


605U6 nENU.OM 


0E43 


007E 


RETURN 


0E47 


007E 




0E47 


007E 


KEKU.QN: 


0E4C 


007E 


LOCATE 22,IHENUXH0)+18 


0E63 


007E 


COLOR 0,7 


0E6F 


C07E 


PRINT KEKUf(nENU:,0); 


OEBD 


007E 


LOCATE 25,40-L£K(«NU$inENUl,l)l/2 


OECl 


007E 


COLOR 7,0 


OECD 


007E 


PRINT «£NUi(«ENUI,l); 


OEEC 


007E 


RETURN 


OEFO 


007E 




OEFO 


007E 


r.ESU.OFF; 


0EF5 


007E 


LOCATE 22,(P1ENUX»10)+18 


OFOC 


007E 


COLOR IA,0 
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Pattern Filing 07-09-S4 

15:11:46 



Offset 


Data 


Source Line IB« Personal Cosputer BASIC CoBpiltr V2< 


0F18 


007E 


PRINT «EKUJ(MEHUI,01: 


0F36 


007E 


LOCATE 25, ;0-LEN(ilEKUi(r.ENUl, 1)1/2 


0F6A 


007E 


PRINT SPACES (LEN (MENUS tHENUZ, 1) 1 ) ; 


0F8F 


007E 


RETURN 


0F93 


007E 




0F93 


007t 


BHCX. ERROR: 


0F9B 


007E 


ON FLABl EOSUB ERl, ER2, ER3, ER4 


0Fft9 


007E 


ERRHSGS = ERRS + * Strike any key..' 


0FB9 


0086 


LOCATE 24,4C-LEH(ERRnSBSl/2 


OFDB 


00B& 


COLOR 13,0 


0FE7 


0086' 


PRINT ERRnseS; 


0Fr4 


00B6 


AS = 


OFFE 


0086 


WHILE AS = 


lOOD 


0086 


AS = INKEYS 


1017 


00B6 


UEflD 


lOlA 


0086 


6DSUB HESSABE.OFF 


1020 


00B6 


RETURN 


1024 


0086 




1024 


0086 


ERl: 


1029 


0086 


ERRS = PATNA«E$ + ' Hot Found in the Directory' 


1039 


0086 


RETURN 


103D 


0086 




103D 


0086 


ER2: 


1042 


0086 


ERRS = 'Pattern Kaie is too Long (15 characters ux.; 


104C 


0086 


RETURN 


1050 


0086 




lOSO 


0086 


ER3: 


1055 


0086 


ERRS - 'Oirectary is Full (BO patterns laxj" 


105F 


0OB6 


RETURN 


1063 


0086 




1063 


0066 


ER4: 


106B 


0086 


ERRS = 'Cannot Hodity EELECTd pattern Haie' 


1072 


0066 


RETURN 


1076 


0086 




1076 


0086 


«E55ABE.CH: 


107B 


0086 


LOCATE 24,33 - LEHir.ESSABESl / 2:CCLCR 11,0:PR1NT HE! 






6ES; 


10B6 


0086 


RETURN 


106A 


0086 




* ASA 

lOBA 


OOdo 




lOBA 


0086 


WESSASE.OFF; 


lOBF 


0086 


LOCATE 24,1:C0LDR 15,0:PRINT SPACES{79)| 


lOEB 


0086 


RETURN 


lOEC 


00B6 




lOEC 


0086 


END SUB 


ICF3 


0086 




1683 


0086 




50426 Bytes Available 



45670 Bytes Free 

0 learning Error(5) 
0 Severe Error(s) 
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Rfdaent Jet Printer PASt 1 

Hain Line Code 07-C'9-Df) 

15:27:04 

Oftset Data Source Line IBH Personal Coaoater BASIC Coapiler V2.00 

C030 OOOi REM STITLE: 'Reagent Jet Printer* ^SUBTITLE: 'Hain Line Code' 
0030 OOOt 

0030 0006 'HODULE - •XAIH' 
0030 OOOi 

003C 0006 'AUTHOR - H, A. [nevoid 
0030 0006 

O03O 0006 'C0PYRI6HT (CI 1986 ABBOTT LABORATORIES 
0030 0006 

0030 0006 'REVISION - 1.1 02-19-86 NAE Add notes and revise TYPEI resetin 
9 

0030 0006 ' - hO 02-14-86 NAE Creation oi initial code 

0030 0006 

0030 0006 'SYSTEH - This code can only be coipiled by the BASCCM 
0030 0006 ' COttPILER, it will not run under the INTERPRETER!! 

0030 0006 

0030 0006 'DESCRIPTION 

0030 0006 ' This is the tain controlling todule for the Reagent Jet 

Printer. 

0030 0006 ' It displays a lenu in table fori that allocs 6 function 

5 to be 

0030 0006 ' selected. PATTERN DEFINITION allows the user to define 
patterns 

0030 0006 ' to be printed. PATTERN FILING lets the user delete, co 
py, renaie 

0030 OO06 ' and select patterns tor printing, REAGENT CALIBRATION 

periits setting 

0030 0006 ' of operation paraieitrs for different reagents. REABEN 

T FILINB is 

0030 0006 ' the saie as pattern tiling. PRINTING PRINT prints the 

selected 

0030 0006 ' pattern **ith the selected reagent. SYSTEM EXIT TO DOS 

ends the session. 

0030 0006 ' Using up and doiin arrow keys let the user love through 

the lenu and 

0030 0006 * the Enter <cr) key activates the selection. 
0030 0006 

0030 0006 'DATA DICTIONARY 

0030 0006 ' nENUI This value represents the current senu 

itei (0-5) 

0030 0006 ' nENUI(5,n String array for displaying tenu itets. 

6 roNS by 2 coluins 

0030 0006 ' Each roN corresponds to a lenu itet (0- 

5) 

0030 0006 * first coluin is short aenu naie in high 

lighted area 

0030 0006 ' Second colutn is long description displ 

ayed at nenu bottoi 

0030 0006 ' rtROWKSI This array stores to row in *ihich the s 

hort lenu na»e will be displayed 
0030 0006 ' DIFFI This value is used it change MENUI in r 

esponse to arrow keys 
0030 0006 * TYPE2 This value is set based on which valid 

key is pressed 

0030 0006 * 0 = No valid key. I = Up Arrow. 2 = D 

81 



0 268 237 



Rtd'jent Jet Printer PAGE 2 

^^£ln Line Code 07-09-8S 

15:27:04 

Offset Data Source Line IBfl Personal Cosoucer BASIC Coipiler V2.00 

own Arrox, 3 = <cr>. 
0030 0006 • TEMPI Used to store KENUl while screen is ref 

resned 

0030 0006 ' A$ Used to store single input keystrokes 

0030 0006 • CS Used to store special graphics characte 

rs used in draNing the lenu table 
0030 0006 * II Counter used to refresh display 

0030 0006 • RI Rom in which special graphics character 

is displayed 

0030 0006 ' CI Coluan in which special graphics charac 

ter is displayed 
0030 0006 REr. IPftBE 

Reagent Jet Printer PftGE 3 

Main Line Code 07-09-86 

15:27:04 

Offset Data Source Line IBM Personal Coaouter BASIC Conpiler V2.00 

0030 0006 

0030 0vC6 '*.ain-lip.B coie for fiJP Reaoeni Jet Printer 
0030 00C6 

0030 0006 f.AIM.LIKE.CDK: 
0030 OCOi 

0030 OOOo eCSUB irilTIALIZE 

004B 0O06 

004B 00C6 mil TYPEl <> 3 

0056 0008 

0056 0008 type: = 0 

005D 0008 A$ = 

0067 OOCC WHILE A$ = 

0076 OOCC A$ = INKEY$ 

OOeO OOOC VEND 

00B3 OOCC 

00B3 OCOC IF A$ = CHRKOl + CHRS(72) THEK TYPEI = 1:' 

up arrcm 

00A8 OOCC IF Pit = CHR${01 ♦ CHRMBO) THEN TYPE! = 2:' 

dcnn arroM 

OOCD OOOC IF A$ = CHR$iI3) THEN TYPEI = 3:' 

(cr) execute cociand 

0OE7 OOOC 

00E7 OOOC OX TYPEI 603UB Tl, T2, T3 

00F6 OOOC 

00F6 OOOC VEND 

OOFfi OOOC 

OOFA OOOC CIS 

0101 OOOC COLOR 7,0,0 

0112 OOOC SYSTEM 

0116 OOOC 

0116 OOCC REM JPABE 
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Rssgeat hi Printer 
Main Line Code 

O^Tset Data Source Line 



PAGE 4 
07-09-9S 
15:27:0A 

IBn Persoaal Coiputer BASIC Cocoiler V2.00 



0116 
0116 
OllB 
0I2A 
0131 
0137 
013B 
013B 
0140 
OlAF 
0156 
015C 
0160 
0160 
0165 
017C 

013E 
01A5 
01A9 
01A9 
OlftE 
OIBA 
OICO 
01C4 
01C4 
01C9 
01E5 
OlFl 
01F5 
01F5 
OlFA 
0206 
020A 
020A 
020F 
022B 
0237 
023B 
023B 
0240 
024C 
0250 
0250 
0255 
0259 
0259 



ODOC 
OCOC 
OOOC 
OOOE 
0010 
0010 
COlO 
0010 
COIC 
0010 
0010 
0010 
0010 
0010 
0010 
0010 

0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 



*HtM»*i SUB-RGUTINES FOR PAIN PR06RAI1 
Tl: 'up arroi* 

IF mUl = 0 THEN RETURN 

DIFFI = -I 

GDSUB NEW.KENU 

RETURN 



T2: 



'dOHH arroH 

IF HENUZ = 5 THEN RETURN 
DIFFI = 1 
60SUB NEW.nENU 
RETURN 



T3; 



ON HENUl + 1 BOSUB T31, T32, 133, T34, T35, T36 
IF MENUZ < 5 THEN TYPEI = 0: ' reset TYPEI so prograi 
won't end 

SCREEN 0,0,3,3 
RETURN 



T31: 



T32: 



'pattern definition 
CALL PATENTRY: 
G05UB REFRESH 
RETURN 

'pattern filing 
SCREEN 0,0,0,0:CLS 
CALL PATTERN. FILE: 
RETURN 



'in lodule PATENT 



'in lodule PATFILE 



T33: 



T34: 



'reagent cahbraticn 

CALL REAGENT. ChLIExATE: 'in lodule REACAL 
RETURN 



T355 



T36: 



'reagent filing lenu 
SCREEN 0,0,0,0:CLS 
CALL REAGENT. FILE: 
RETURN 

'print pattern 
CALL PATPRINT: 
RETURN 



'in loduie REAFILE 



•in iodule PATPRINT 



'etit systei, don't reset TYPEZ 
RETURN 



REH *PABE 
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?^eacen: jet Printer PAGE 5 

nam Line Code 07-09-B6 

15:27:04 

(3ff5E: Data Scurce Line IBR Personal Ccaputer BASIC Ccaoiler V2.00 



0259 


ODID 


h'E'-i.r.E.VJ: 


025E 


£K)10 


BZ-EiJE ftEK'J.OFF 


0264 


0010 


HEKUl = r.E!iyi + DIFFl 


0270 


CCIO 


BOSUE f.E^iU.QN 


0276 


0010 


RETURH 


027A 


OOlO 




027A 


0010 


IMITIAIIIE: 


027F 


0010 


CALL PCI.IKIT 


025B 


0010 




02BB 


WIC 


detine and initialize arrays 


02BB 


0010 


Din mri,{i] 


02BC 


OOlC 


mmw = 4 


029E 


OOlC 


mmi) ' 6 


02B1 


OOlC 


rmm) = lo 


02C4 


mt 


= 12 


02D7 


OOlC 


KF.C«Z(41 = 16 


02EA 


OOIC 


HP.OSKS) = 20 


02FD 


OOlC 




02FD 


OOlC 


Dir\ «ENU$(5,11 


02FE 


mz 


R'ESTDRE ttENU.STRINS.DATA 


0305 


004C 


FCR IX = 0 TO 5 


030B 


004C 


READ MEHU$(IZ,01,HENU$tIl,lJ 


033B 


0C4E 


kEH IX 


034B 


004E 




034B 


004E 


set initial values into variables 


034B 


004E 


TVPtl = 0 


0352 


004t 


r.vm = 0 


0359 


a04E 




0359 


0^'4E 


REFRESH: 'redraw screen ans 'i:*iliqht current lenu selection 


035E 


004E 




035E 


0C4E 


E:?E£N 0,0,0,0:CL5:CCl:R 7,0,0 


036B 


004E 


LCCATE lO,32:rR;KT •Icaaing Menu • 


03A5 


OOAE 


SCrEEH C,0,3,0;CLS 


03C2 


oo;e 




03C2 


W4E 




03C2 


004E 


COLOR 13,0 


03CE 


004E 


LOCATE K3I 


03B5 


0C4E 


PRINT 'REAEEKT JET PRINTER'; 


03E3 


004E 


CClCR 10,0 


03F4 


004E 


LOCATE 5,26 


0401 


004£ 


PnlKT •PATTERN' 


040E 


004E 


LOCATE 11,26 


04 IE* 


oo;e 


PRINT 'REABEKT' 


C42B 


004E 


LOCATE 16,26 


0435 


004E 


PRINT 'FRIKTIKS' 


0442 


004E 


LOCATE 20,27 


044F 


004E 


PRINT 'SYSTEW 


045C 


004E 




045C 


004E 


dran the tenu table in special graphics characters 


045C 


0G4E 


COLOR 9,0 


0466 


004E 


FOR 11 = 18 TO 63 


046F 


004E 


LOCATE 2.I?.:FRINT *r\ 


04BA 


004E 


LOCATE 8,IX:FkI:1T 'D'; 


04A5 


004E 


LOCATE 14,IX:PRIHT '0'; 
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PfiSE 6 

f.ain Line Code 07-09-Sfe 

15:27:04 

Offset Dsta Sciirte Line IBM Personal Ca«puter SftSlC Coipiler v:.00 



04CO 


004E 


LC:hTE 18,I1:PRINT 'D'; 


04DB 


OOAE 


LOCATE :2.i::?RINT 'r; 


04Ffc 


004c 


LOCATE 24,i::PRlNT 'D'; 


05U 


004E 


KEIT 11 


0524 


mi 


FOR U = 3 TO 23 


052B 


004t 


LOCATE II,:7:PRIHT -J'; 


0546 


004E 


LOCATE IZ,64:PRINT 


0561 


004£ 


NEXT U 


0571 


X4E 


RESTORE TABLE 


0578 


004E 


FOR 11 M TO 12 


057F 


004E 


READ R1,C1,C$ 








OSAE 


0056 


KEXT U 


05BE 


0056 




05St 


0056 


print the instructions 


05BE 


0056 


COLOR 7,0 


05CA 


0056 


LOCATE 25,6 


0507 


0056 


PRINT "Use or to highlight flenu itess. Use to 






activate selection/; 


05E4 


0056 




05E4 


0056 


COLOR 15,0 


om 


0056 


LOCATE 25,15:PRINT '•; 


0624 


0056 


LOCATE 25,47:PRIKT 'Dy'; 


063E 


0056 




* 063E 


0056 


display the b tenu choices 


063E 


0056 


TEMPI = MENUI 


0645 


0053 


FOR riEKUI = 0 TO 5 


064B 


005B 


G05UB r.EKU.CFF 


0651 


005S 


KEIT HENUI 


0661 


W5a 


menu: = TEMPI 


0668 


005B 




066B 


M53 


highlight the currently active lenu itei 


066B 


C058 


603UB HEKU.ON 


066E 


0058 




066E 


W)5B 


SCREEN 0,0,3,3 


06SS 


0058 


RETURN 


0689 


005B 




068? 


W)5B 


RENU.OK: 'highlight the lenu KEHUI and display its long descript 






iofl 


06BE 


0058 


COLOR 0,7 


069A 


00 5B 


LOCATE KRQ W ((lENUI) , 52-LEN IKENUI (HENUX,0) 1 12 


06DA 


0058 


PRINT «EHU*(nENU:,01; 


06F6 


0058 


COLOR 7,0 


0704 


0058 


LOCATE 23,40.5-LEN(HENUI(KENUI,l))/2 


0738 


0058 


PRINT OUnKEHUI.lI; 


0757 


0058 


RETURN 


075B 


0058 




075B 


0058 


C.EHU.OFFi'an-highliQht lenu nEHUl and erase long description 


0760 


0053 


COLOR 14,0 ' 


076C 


C053 


LOCATE ?(R0'^XlhEMUZ),5:-LE!il«Er^U$lKENU7., 0)1/2 


07AC 


0053 


PRINT KENUnHEKUljOl; 


07Cft 


0058 


COLOR 7,0 • 


0706 


CC58 


LOCATE 23,40. 5-LEH ir.EHUS («ENUX , U i / 2 
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Rcaqerit Jet Fnnter PAGE 7 

Hain Line Code 07-09-36 

15:27:04 

Offset Uala Sa^rcE Line IB« Personal Cofiputer BASIC Conpiler V2.00 



OBOA 0055 PRIWT SPACEMLENIMENUI (^iEHUX,!) ) 1 ; 

0S2F OaSB RETURN 

0833 0058 

0833 005B REH $FA6E 
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10 



75 



20 



25 



30 



35 



40 



45 



Reacent 


Jet FTinter PAGE B 


r.ain Li 


r.e Ccoe 


07-09-86 






15:27:04 


Offset 




So'irce Line IBM Personal Ccwuter BASIC ConDuer V2.00 


0533 


0v53 


DATA FIELDS USED BY THE «AIW PROSRAM 


0833 


0D53 




0333 


0053 


ftEKJ. 3TRIN3. DATA: 'first entry is lenu naie, secono is lo 






na description 


0838 


0058 




083B 


':053 


DATA 'DEFINITION', 'Create and Modify Patterns" 


0B3A 


C-053 


DATA 'FILINBV 'Delete, Copy, Renaie, and Select Pa 






tterns' 


0B3C 




DATA 'CALIBRATION* /Calibrate and Modify Reaoent Prof 1 1 






es" 


083E 


W53 


DATA 'FILIN6*, 'Delete, Copy, Renau, and Select Re 






agents' 


0840 


0053 


DATA 'PRINT*, 'Print Selected Pattern with Selecte 






d Reagent' 


08A2 


0052 


DATA "EXIT TO DOS". 'Leave Proorai and Return to DOS" 


0844 


0058 




0644 


0C58 


TABLE: 'first entry is row, second is coluin. third is snecial 






graphics character 


0849 


0058 




0649 


005B 


DATA 2.17 '2' 


034B 


0058 


DATA 2.64.*'?' 


0840 


0058 


DATA 8.I7/C" 


084F 


0058 


DATA 8,64, "^^ 


0651 


0058 


DATA 14.17.*C" 


0853 


0058 


DATA 14.64. T 

vnin 4Tfi^^f T 


0855 


0058 


DATA 1B,17/C* 


0B57 


0058 


DATA IB,64,'4' 


0859 


0058 


DATA 22,17,'C" 


085B 


0058 


DATA 22t64,'4* 


085D 


0059 


DATA 24,17,'g' 


0B5F 


005S 


DATA 24,64,'r' 


0861 


0058 




0B61 


0058 


EKD 


0865 


0058 




0B42 


005B 




50426 BylBS ^vaiiablt 



476B0 B/tes Free 

0 Earning Error(s> 
0 Severe Error (s) 



50 Claims 



1. A dispensing system for use in diagnostic instruments for precise metering of a desired diagnostic 
fluid, the system comprising: 

a jetting chamber defining a volume and comprising a first and second aperture, the first aperture adapted 
to receive diagnostic fluid, the second aperture defining an orifice; 

a transducer in mechanical communication with the jetting chamber, the transducer operative to alternately 
expand and de-expand the volume of the jetting chamber in response to a selected electrical pulse and 
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thereby cause the jetting chamber to omit a substantially uniformly sized droplet of diagnostic fluid through 
the orifice; and 

means for generating a number of electrical pulses sufficient to cause a desired quantity of the diagnostic 

fluid to be dispensed. 
5 2. The invention of Claim 1 wherein the system further comprises: 

at least one additional jetting chamber In fluid communication with an additional diagnostic fluid; 

at least one additional transducer in mechanical communication with the additional jetting chamber; 

at least one additional means for applying an electrical pulse to the additional transducer; 

means for generating respective numbers of electrical pulses sufficient to cause precise quantities of the 
10 diagnostic fluids to be dispensed in a desired volumetric ratio; and 

a receptacle adapted for and positioned to receive the fluids. 

3. The invention of Claim 1 wherein the system further comprises: 

means for directing at least one of (1) the receptacle and (2) the emitted diagnostic fluid and the emitted 
addi-tional diagnostic fluid such that desired quantities of the fluids are dispensed into the receptacle in a 
75 predefined dispensing order. 

4. The invention of Claim 1 wherein one of the diagnostic fluids comprises serum and wherein the 
jetting chambers cooperate such that the other diagnostic fluid is emitted in a manner to contact and mix 
with the serum. 

5. The invention of Claim 1 wherein the jetting chamber comprises a cylindrical tube and wherein the 
20 trans-ducer is mounted concentrically about the cylindrical tube. 

6. The invention of Claim 1 wherein the jetting chamber is conically shaped. 

7. The invention of Claim 1 wherein the jetting chamber comprises at least one chamber wall which is 
integrally formed with the transducer. 

8. The invention of Claim 1 wherein the transducer is one of (1) a piezo-electric transducer; (2) a 
25 magneto-strictive transducer; (3) an electro-strictive transducer; and (4) an electro-mechanical transducer. 

9. The invention of Claim 1 wherein the jetting chamber is conically shaped; and wherein the transducer 
is disc shaped and forms the base of the conically shaped jetting chamber. 

1 0. The invention of Claim 1 wherein the orifice comprises an end face and the end face is coated with 
a hydrophobic polymer. 

30 11. The invention of Claim 1 wherein the transducer is cylindricaliy shaped and comprises a first 
electrode located on the inner wall of the cylinder and wraps around one end of the cylinder and wherein a 
second electrode is located substantially on the outer wall of the cylinder and is electrically isolated from 
the first electrode. 

12. The invention of Claim 1 wherein the means for generating produces an electrical pulse of selected 
35 rise and fall time constants and of selected duration, voltage and polarity. 

13. The invention of Claim 1 wherein the means for generating the electhcal pulse comprises means for 
scaling the voltage of the pulse in response to a selectable digital value. 

14. The invention of Claim 1 wherein the apparatus further comprises means for directing the emitted 
diagnostic fluid along a desired path. 

40 15. A method of dispensing precise quantities of diagnostic fluids comprising the steps of: 

(a) generating an electrical pulse of predefined characteristics: 

(b) reducing the volume of a chamber containing the diagnostic fluid by electro-mechanical means in 
response to the electrical pulse such that a droplet of fluid of known volume is propelled tnrougn an orifice 
in the chamber; and 

45 (c) repeating steps (a) and (b) until a desired quantity of the diagnostic fluid has been dispensed 
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FIG.Se 
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FIG. 10 
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